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
|