folgende Ausgangslage: in Mappe1 gibt es ein Sheet namens "FR Consulting". Dort werden ab Zelle "D7" Datumsangaben (Format MM/JJ) generiert. Das Ganze passiert dynamisch je nach Start- und Enddatum. Bis dahin kein Problem.
Nun möchte ich in Mappe2 für jeden dieser Monate aus Mappe1 Sheets anlegen, d.h die vorhandenen umbennen (Tabelle1-3) und ggf. neue hinzufügen + umbennen. Der neue Name soll das Format "MMM_JJ" haben.
z.B.: wenn die Monate 01/03 bis 05/03 in Zeile 7 stehen, brauche ich in Mappe 2 fünf Sheets (die 3 vorhandene Tabellenblätter umbennen + 2 neue Sheets hinzufügen und umbennen): Jan_03, Feb_03, Mrz_03, Apr_03, Mai_03
Mein Ansatz sieht seht ihr unten. Allerdings bekomme ich bei
Sheets(SheetName).Name = Sheets("FR Consulting").Cells(7, 3 + i).Value
eine Fehlermeldung.
Dim dat As Date
Dim i As Integer
Dim SheetName As String
i = 1
SheetName = "Tabelle" + CStr(i)
' create and rename sheets
While (Cells(7, 3 + i) = dat)
For i = 1 To 3
Sheets(SheetName).Select
Sheets(SheetName).Name = Sheets("FR Consulting").Cells(7, 3 + i).Value
Selection.NumberFormat = "mmm\_yy"
Next i
Wend
i = 4
While (Cells(7, 3 + i) = dat)
Sheets.Add
Sheets(SheetName).Select
Sheets(SheetName).Name = Sheets("FR Consulting").Cells(7, 4 + i).Value
Selection.NumberFormat = "mmm\_yy"
i = i + 1
Wend
Was ist falsch? Oder geht es irgendwie einfacher?
nic