Laufzeitfehler '1004'
28.12.2016 10:31:46
Alex
ich habe folgendes Problem: Ich möchte per Schaltfläche aus meinem Tabellenblatt eine PDF erstellen lassen. Mein Code dafür ist:
Sub PDFspeichern()
ChDir "J:\_Global\Data Sheets\TB - Textbausteine"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("B4") & Range("A2").Value & Format(Date, "YYYYMMDD") & ".pdf", OpenAfterPublish:=True
End Sub
Doch wenn ich das Makro ausführe, erscheint:
"Laufzeitfehler '1004':
Das Dokument wurde nicht gespeichert. Das Dokument ist möglicherweise geöffnet, oder beim Speichern ist ein Fehler aufgetreten."
Wenn ich dann Debuggen drücke wird mir die Zeile ActiveSheet und Range gelb hinterlegt.
Habt ihr vielleicht eine Lösung für das Problem? ICh danke euch schon mal im Voraus für eure Hilfe!
Grüße
Alex
Anzeige