12 workbooks öffnen-drin: jeweils 11 Blätter(gs)
05.01.2004 17:40:12
peristeri
schon vor Weihnachten hatte ich dieses Problem und Dieter u. Nepomuk gaben mir sehr hilfreiche Tipps.
Obwohl die genannten Schritte im einzelnen funktionieren, klappt es beim zusammenfügen nicht;-((
Nun bin ich auf Eure Hilfe wieder angewiesen und auf diese Möglichkeit im Forum sehr dankbar...
Euer Peristeri
Aufgabe:
12 workbooks öffnen (deren Namen sollen 1999.xls bis 2010.xls sein), unter genannten pfad speichern
jedes dieser workbooks soll 11 sheets (mit namen: gs1 bis gs11) besitzen.
Vielen Dank
Sub neue_dateien_mit_gs()
Dim i As Integer
Dim jahr As Integer
Dim monat As Integer
Dim pfad As String
Dim wb As Workbook
Dim gs As Integer 'zähler
pfad = "D:\Eigene Dateien\"
jahr = Year(Date)
For i = 1 To 12
Set wb = Workbooks.Add
wb.SaveAs FileName:=pfad & Format$(DateSerial(i - 2, 1, 1), "yyyy") & ".xls"
For gs = 1 To 11 'soll 11 Blätter pro Datei erstellen!
'es funktioniert!
Sheets.Add
ActiveSheet.name = "GS" & gs
Next gs
wb.SaveAs FileName:=pfad & Format$(DateSerial(i - 2, 1, 1), "yyyy") & ".xls"
wb.Close
Next i
End Sub