Ich habe im Tabellenblatt 1 in Spalte A1 bis A24 Namen stehen,
von denen ich jeweils ein Tabellenblatt erstellen möchte.
Suche eine Lösung die Tabellenblätter automatisch erstellt.
Vorab heißen Dank
Walter
Sub Sheetas_aus_Namen_Erstellen()
Dim lngZ As Long, wsAkt As Worksheet
Set wsAkt = ActiveSheet
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = wsAkt.Cells(lngZ, 1)
Next
End Sub
Schliesse den VBA-Editor und führe das Makro nun per Alt+F8 aus.