Ich habe eiene Tabelle mit 18 Eintragungen,
Für jede Eintragung möchte ich ein Blatt erzeugen, bekomme aber immer
eine Fehlermeldung.
Bitter um Hilfe
https://www.herber.de/bbs/user/111146.xlsm
Gruß Walter
Sheets(2).Select
Deine Datei besteht beim Start aber nur aus einer Tabelle
Sub tabneu()
Dim i, z As Long
z = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To z
Sheets.Add
ActiveSheet.Name = Tabelle1.Cells(z, 1).Value
z = z - 1
Next i
End Sub