Blätter in neue Mappen und speichern
20.11.2020 20:34:37
Dorit
mein Problem kommt mir eigentlich einfach vor, aber ich schaffe es nicht:
In einer Arbeitsmappe habe ich mehrere Blätter. Nun würde ich gerne per VBA jedes Blatt in eine jeweils neue Mappe kopieren und diese dann unter dem Namen des Blattes speichern.
Folgend mein erfolgloser Versuch:
Sub export()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Sheets(wks.Name).Copy
ActiveWorkbook.SaveAs "Name.xls"
Next wks
End Sub
Wäre über eine Hilfestellung sehr dankbar.
Liebe Grüße,
Dorit
Anzeige