Wie geht das?
Danke manas
Gehe davon aus, dass sich die 50 Namen in Spalte A1:A50 befinden.
Dim i As Integer, ii As Integer
Dim BlattExistiert As Boolean
On Error Resume Next
For i = 1 To Range("A65536").End(xlUp).Row
BlattExistiert = False
'Check ob Blatt bereits existiert
For ii = 1 To Sheets.Count
If Sheets(ii).Name = Cells(i, 1) Then
BlattExistiert = True
Exit For
End If
Next ii
'Blatt hinzufügen und benennen
If BlattExistiert = False Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Cells(i, 1)
End If
Next i
Gruss
Chris
deine Namensliste steht im Blatt "Tabelle1" in A1 bis A50.
Lass folgendes Makro laufen:
Eine Fehlerbehanldung (falls Blattname schon existiert) hab ich mir jetzt erstmal gespart.
Gruß Boris