Export PDF mit Range

[Andyle]

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!

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

[schauan]

Hallöchen,

lautet die Meldung "Fehler: irgendwie und irgendwo" oder ähnlich?

[Andyle]

Neuer Code:
 Pdf erstellen funzt, allerdings miss H6 als aktives Tabellenblatt sein

Code:

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 = Range("Übersicht!H6").Value

Range("A1:N33").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Versandliste_pdf\" & Range("Übersicht!E1").Value & "\" & Range("Übersicht!H6").Value & "_" & Range("Übersicht!E1").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

End Sub

[schauan]

Hallöchen,

dann z.B. mit einem Blattwechsel am Anfang, wenn alles benötigte auf diesem Blatt steht:

Sheets("Übersicht").Activate

oder, falls der Blattname in H6 steht,

Sheets(Range("Übersicht!H6").Value).Activate

[Andyle]

So macht er irgend ein Blatt aktive!

Code:

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

Sheets(Range("Übersicht!H6").Value).Activate

Range("A1:N33").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Versandliste_pdf\" & Range("Übersicht!E1").Value & "\" & Range("Übersicht!H6").Value & "_" & Range("Übersicht!E1").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

End Sub

[schauan]

... Was steht denn auf dem Blatt Übersicht in H6?

[Andyle]

Die Liste!

52_VJ;53_VJ;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46;47;48;49;50;51;52;53;1_NJ

[schauan]

.. Wo steht denn dann die Auswahl? Hinterlege die Liste in H6 als Dropdown...

[Andyle]

Ja ist die Liste

Er speichert auch das Pdf als KW_Jahr.pdf ist nur halt nicht das richtige Tabellenblatt sondern immer wieder ein anderes.

---

So, jetzt mit einer Msg getestet

Gebe ich in H6 die 10 ein, exportiert er das 10te Tabellenblatt
20 dann das 20te Tabellenblatt

Aber er soll ja mit der Auswahl H6 das Tabellenblat ansprechen und aktiv setzen.

Oder kann ich die .pdf Erzeugung  ActiveSheet. irgendwie anpassen?