habe diesen Code im Forum gefunden und angepasst:
Dim strFilename As String
ChDir "F:\Dropbox\Desktop\HMPDF\"
ThisWorkbook.Sheets("Einsatzlisten").ExportAsFixedFormat Type:=xlTypePDF _
, Filename:="F:\Dropbox\Desktop\HMPDF\" & Sheets("Einsatzlisten").Range("K2").Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=True
Funktioniert soweit einwandfrei.
Habe nun folgendes Problem:
Ich möchte, dass das Makro nicht nur K2 als Namen druckt, sondern sämtliche Namen in der Spalte K4:K42 nacheinander druckt.
Hoffe mich verständlich ausgedrückt zu haben :-)
Gruß
Roland