In einer Datei Blatt 1 habe ich 12 Monatsnamen stehen
Nun möchte ich per VBA 12 Blätter mit den Namen erstellen.
Bitte um Hilfe.
Gruß Walter
Public Sub Monate_Erstellen()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 12
Worksheets.Add after:=Worksheets(Sheets.Count)
ActiveSheet.Name = Worksheets("Tabelle1").Cells(i, 1)
Next i
End Sub
Der Code ist ohne Fehlerbehandlung. Wenn es die Monatsblätter schon gibt, dann läuft der Code in einen Fehler.