AW: Excel-Datei per makro erstellen?
13.05.2008 14:07:15
Ptonka
Hallo Gordon,
versuche es mal hiermit - Du müsstest lediglich den Pfad zum speichern und den Dateinamen individuell anpassen:
Sub neue_leere_Datei()
Workbooks.Add
Anzahl = ActiveWorkbook.Sheets.Count
For i = 1 To Anzahl
Sheets("Tabelle" & i).Select
Select Case i
Case Is > 2
'Sheets("Tabelle" & i).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Select
Next i
Sheets(Array("Tabelle1", "Tabelle2")).Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 75
Sheets("Tabelle1").Select
ActiveWorkbook.SaveAs Filename:="C:\Testdatei.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWorkbook.Close
Range("E1").Select
End Sub
Gruß,
Ptonka