Probleme mit PDF-Creator
Gordon
ich möchte gerne von meinem Sheetsheet ("Aufstellung") eine PDF-Datei im Ordner "Archiv" per Makro anlegen. dafür habe ich folgenden Code mir aus dem Netz besorgt:
Option Explicit
Sub PDF()
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
Dim name As String
Dim Datum As Date
Datum = ThisWorkbook.Sheets("Aufstellung").Range("B1").Value
If Month(Datum)
Leider hängt er sich bei der Prozedur immer auf. Wenn ich den Taskmanager aufrufe und den PDF-Creator mit Gewalt abbreche, ist die Datei aber erstellt worden. Wenn ich den Code Schritt für Schritt uasführe geht auch alles wie geschmiert. Die Datei wird erstellt und das Makro beendet. Wenn ich es aber automatisch starte, hängt er sich irgendwo zum Schluss auf. Hat jemand da 'ne Idee, woran es liegen könnte?Gruß
Gordon