Hi Rorya,
thank you for your help.
But there is a Problem with the following part: .Attachments.Add ActiveSheet.Cells(lngZaehler, 8).Value2