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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen