Wir wollen, mit Hilfe eines Excel VBA Makros, überprüfen, ob ein bestimmter Tabellenblattname existiert. Wenn nicht, dann soll ein Tabellenblatt, mit genau diesem Namen, angelegt werden.

Um zu überprüfen, ob ein Tabellenblattname existiert, habe ich euch hier 2 Makros geschrieben. Das Ergebnis ist absolut identisch, es werden eben nur 2 Möglichkeiten aufgezeigt:

Sub Tabellenname_abfragen()
Dim i As Integer
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "Break" Then
        Worksheets(i).Activate
        MsgBox Worksheets(i).Name & " ist vorhanden"
    End If
Next
End Sub

Sub Tabellenname_abfragen2()
Dim WS As Worksheet
For Each WS In Worksheets
    If WS.Name = "Break" Then
        WS.Activate
        MsgBox WS.Name & " ist vorhanden"
    End If
Next WS
End Sub

Wenn wir nun nicht nur wissen möchten, ob ein Worksheet mit einem bestimmten Namen vorhanden ist, sondern auch ein Tabellenblatt mit diesem Namen anlegen möchten, dann müssen wir die oben genannten Makros noch etwas erweitern.

Sub Tabelle_mit_Name_anlegen()
Dim WS As Worksheet
Dim Hinweis As Byte
For Each WS In Worksheets
    If WS.Name = "Break" Then
        WS.Activate
        MsgBox WS.Name & " ist vorhanden"
        Exit Sub
    End If
Next WS
Hinweis = MsgBox("Tabellenblatt existiert nicht. Anlegen?", 1, "Hinweis")
If Hinweis = 1 Then
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Break"
End If
End Sub