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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen