Hallo,
du solltest auch einen Pfad mit Dateinamen angeben (sonst kann ja nicht exportiert werden :-). )
https://docs.microsoft.com/de-de/office/vba/api/excel.workbook.exportasfixedformat
Übrigens fällt mir in diesem Codebereich was auf:
With Sheets("Übersicht")
.Columns("A:A").Delete
.Columns("B:C").Delete
.Columns("C:C").Delete
.Columns("D:N").Delete
.Columns("H:J").Delete
.Columns("J").Delete
End With
Wenn ich das lese, muss ich schon ziemlich nachdenken, ob Spalte B erhalten bleibt, oder nicht. Für Spalte S ist es mir nicht mehr innerhalb von fünf Sekunden möglich. Deswegen würde ich von rechts nach links löschen:
With Sheets("Übersicht")
.Columns("AB").Delete
.Columns("W:Y").Delete
.Columns("H:R").Delete
.Columns("F").Delete
.Columns("C:D").Delete
.Columns("A").Delete
End With
Das Ergebnis sollte das gleiche sein, aber beim Lesen des Codes, kann ich die Frage beantworten, ob Spalte S erhalten bleibt, oder gelöscht wird.
|