Public Sub Neue_Blätter()
Dim i As Long, boVorhanden As Boolean
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
boVorhanden = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name = .Cells(i, "A") Then
boVorhanden = True
Exit For
End If
Next ws
If Not boVorhanden Then
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, "A")
End If
Next i
.Activate
End With
End Sub