ich habe eine größere Datei, aus der ich die Blätter 2 und 3 jeweils als separate Excel-Dateien abspeichern möchte.
In der Ursprungsdatei sollen die Blätter weiterhin enthalten bleiben.
Es geht dabei immer nur um diese zwei Blätter, die beide nur Text / Zahlen ohne Formeln enthalten.
Bisher habe ich dafür folgenden Code, der mir aber immer nur Blatt 2 kopiert.
Auch soll die Ursprungsdatei danach geöffnet bleiben.
Kann mir jemand sagen, was ich hier falsch mache (und was vielleicht nicht optimal ist) ?
Mein Code:
Dim i As Integer, varFileName As String, varPath As String
Application.ScreenUpdating = False
varPath = "C:\Users\xxx\Desktop\"
For i = 2 To 3
varFileName = Worksheets(i).Name
ActiveWorkbook.SaveAs Filename:=varPath & varFileName & ".xls" ' lieber wäre mir .xlsx, _
aber das scheint hier nicht zu funktionieren
ActiveWindow.Close
Next i
Application.ScreenUpdating = True
Vielen Dank im Voraus für Eure Hilfe, Martin