Makro wiederholen bis Zelle leer
18.05.2017 14:45:16
Ralf
ich habe ein Makro zusammengestellt, welches automatisch eine E-Mail öffnet und einen Anhang als PDF einfügt. Der Empfänger und der Anhang wird aus der ersten Zeile des Tabellenblatts "Zusammenfassung" übernommen. Soweit funktioniert auch alles einwandfrei.
Dieses Makro müsste jetzt mit den Daten der 2. Zeile 3. Zeile usw. bis eine leere Zeile kommt durchgeführt werden. Leider fehlen mit hier die Kenntnisse wie und ob so etwas möglich ist.
Grüße Ralf
Sub Abrechnung_versenden()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
Sheets(Array(Sheets("Zusammenfassung").Range("a1").Value)).Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Workbooks("Statusbericht.xlsm").Sheets("Zusammenfassung").Range("f1"). _
_
Value & " " & Date & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
mePDFD = ThisWorkbook.Path & "\" & Workbooks("Statusbericht.xlsm").Sheets("Zusammenfassung"). _
Range("f1").Value & " " & Date & ".pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Workbooks("Statusbericht.xlsm").Sheets("Zusammenfassung").Range("e1").Value
.Subject = "Maßnahme " & Date
.body = "Hallo "
.Attachments.Add mePDFD
.Display
Kill mePDFD
End With
ActiveWorkbook.Close False
End Sub