Kann ich anhand einer Zelle ein Tabellenblatt erstellen?
wenn ja z.B. von A2:A20 so dass für jede Zelle ein Tabellenblatt erstellt wird?
natürlich mit dem namen der in der Zelle ist.
Besten Dank & Gruss
Sub Blaetter()
Dim b As Byte, sh As Worksheet
For b = 2 To 20
On Error Resume Next
Set sh = Worksheets.Add
sh.Name = Sheets("Tabelle1").Cells(b, 1)
Next
Sheets("Tabelle1").Activate
End Sub