ich versuche eine PDF Datei zu exportieren, was auch bis jetzt geklappt hat, doch meine Excel Tabellen werden immer mehr und das Problem ist, das mein Programm das Aktive Blatt als PDF exportiert. Leider versuche ich etliche Kombinationen, aber keine führt zum Erfolg.
Aufbau:
Tabelle1 (Hauptmenü)
Tabelle 2
Tabelle 3
Tabelle 4
Tabelle 5 (Hotel) -> Dieses Blatt soll als PDF exportiert werden.
Formulare
UserForm1
Module
Modul1
Modul2
Modul3
Modul4 Hier ist das Programm zum Exportieren der PDF Datei
Hier ist der ProblemCode, bei der ersten Zeile meckert es.
Sheets("Hotel").Range("A1:E52").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=GlobalDateiName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False) '(in Kombination mit MsgBox) _
OpenAfterPublish = True '(wenn keine MsgBox gewünscht ist)
Wie kann ich die erste Zeile verbessern, das es auf die Tabelle 5 ( Hotel) um eine PDF zu erzeugen.
Workbook(Thisworkbooks.Name).Workscheets("Hotel").Range......
Habe ich auch Probiert, klappt nicht.
Am liebsten wäre es mir das ich den Code in die Tabelle5 (Hotel) schreiben könnte, aber dann kann ich
nicht über das UserForm1 mit dem Tabelle5.HotelReservierung zugreifen. "HotelReservierung" wurde als Sub deklariert.
Ich hoffe ihr konntet mir folgen, ich bedanke mich für eure Hilfestellung.
LG Anton