If InStr(1, Me.ListBox1, Me.TextBox1.Value, compare:=vbTextCompare) <> 0 Then

End If

Ich komm einfach nicht weiter ich check nicht wie ich den String 1 benennen soll.
Kann mir jemand helfen?

Das Problem ist ehern, dass du nicht nachzdenken scheinst und einfach drauf los tippst.

Also mal einen Schritt zurück treten und es aus Distanz betrachten.

Du willst nur die Tabellenblattnamen in die Liste aufnehmen, deren Namen den Inhalt von TextBox1 beinhalten.

Also:

For Each ws In Worksheets
    If InStr(1, ws.Name, Me.TextBox1.Value, vbTextCompare) <> 0 Then
        'Tabellenblatt ListBox hinzufügen
        ListBox1.AddItem ws.Name
        'Prüfen, ob Tabellenblatt das aktive Tabellenblatt ist
        If ws.Name = ActiveSheet.Name Then ListBox1.ListIndex = ListBox1.ListCount - 1
    End If
Next ws