Habe im ersten Tabellenblatt in Spalte "A" 16 Blattnamen stehen.
per VBA sollen 16 Tabellenblätter erzeugt werden.
Habe etwas passendes nicht gefunden.
Danke für die Hilfe.
Es grüßt
Walter
Sub x()
Dim Zelle, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean
Set Bereich = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Zelle In Bereich
For i = 2 To Worksheets.Count
If Worksheets(i).Name = Zelle.Value Then
Bool = True
Exit For
Else
Bool = False
End If
Next i
If Bool = False Then
Set nWS = Worksheets.Add(after:=Worksheets(Worksheets.Count))
nWS.Name = Zelle.Value
End If
Next Zelle
End
Sub
Gruß
Walter