Tabellenblätter "drucken"
21.05.2014 11:11:33
Dennis
ich habe ein Makro wo ich verschiedene Tabellenblätter drucke.
Es funktioniert soweit.
Jetzt habe ich diesen Teil in eine andere Tabelle geschoben und nun geht es nicht und es stoppt bei Sheets(i).Copy-
Fehlermeldung: Lautzeitfehler "1004" Die Copy Methode des Worksheet-Objekts ist fehlerhaft".
Leider verstehe ich das nicht so ganz.
Habt ihr einen Tipp?
Gruß
Sub Export()
For i = 2 To ActiveWorkbook.Sheets.Count
Blatti = ThisWorkbook.Path & ":Test" & Format(Date, "yyyy-mm-dd") & " Tes - " ''& Sheets(i). _
Name
Sheets(i).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Blatti & ".pdf", FileFormat = xlPDF
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
Next i
ThisWorkbook.Close savechanges:=False
End Sub
Anzeige