ich versuche mir automatisch ein PDF zu erstellen und zwar so:
Sub PDFerstellen()
Dim SpeicherName As String
Dim Verzeichnis As String
Dim Pfad As String
SpeicherName = Format(Sheets("Ber").Range("C3"), "YYYYMMDD") & " - Tag_Ber"
Verzeichnis = "T:\Tagesberichte\Tag_Ber\"
Pfad = Ordner_vorhanden_Mon(Verzeichnis, Sheets("Ber").Range("C3"))
Sheets("Ber").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & SpeicherName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Die Funktion Ordner vorhanden erstellt einen neuen Ordner, damit ich die Berichte nach Datum unterscheiden kann!Das klappt auch alles soweit, nur wenn ich debugge bleib ich hier hängen:
Sheets("Ber").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & SpeicherName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Woran könnte das liegen? Es kommt die Meldung Laufzeitfehler 1004 Das Dokument ist entweder geöffnet oder beim Speichern ist ein Fehler aufgetreten :-(Gruß