15.08.2023, 18:57
Hallo an alle hier im Forum.
Ich habe ein Tabellenblatt ("Übersicht")
E1 = Jahr
H6 = KW-Woche als Liste
Über diese Daten möchte ich aus der Liste auswählen, welches KW-Blatt als pdf erstellt und gespeichert werden soll.
Ordner erstellen funzt!
Mein jetziger Code hat irgendwie einen fehler, nur bekomme ich es nicht hin ohne Hilfe
Code: Makro liegt in dem Modul!
Danke für Eure Unterstützung
Ich habe ein Tabellenblatt ("Übersicht")
E1 = Jahr
H6 = KW-Woche als Liste
Über diese Daten möchte ich aus der Liste auswählen, welches KW-Blatt als pdf erstellt und gespeichert werden soll.
Ordner erstellen funzt!
Mein jetziger Code hat irgendwie einen fehler, nur bekomme ich es nicht hin ohne Hilfe
Code: Makro liegt in dem Modul!
Code:
Sub PDF()
Dim Pfad As String
'Ordner prüfen
Pfad = ThisWorkbook.Path & "\Versandliste_pdf\" & Range("E1") & "\"
If Len(Dir(Pfad, vbDirectory)) = 0 Then MkDir Pfad 'Jahresordner erstellen wenn nicht vorhanden
ActiveSheet.Name = Worksheets("Übersicht").Range("H6").Value
Range("A1:N33").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Versandliste_pdf\" & Worksheets("Übersicht").Range("E1") & "\" & Worksheets("Übersicht").Range("H6").Value & "_" & Worksheets("Übersicht").Range("E1").Value & ".pdf"", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Danke für Eure Unterstützung