Thema Datum  Von Nutzer Rating
Antwort
12.11.2022 13:06:05 Marcus
NotSolved
12.11.2022 13:47:42 Gast87505
NotSolved
12.11.2022 14:51:28 Marcus
NotSolved
12.11.2022 15:07:40 ralf_b
NotSolved
Rot Über Textbox in Listbox nach Tabellennamen suchen
12.11.2022 18:20:04 Gast79511
***
Solved
13.11.2022 09:41:12 Marcus
NotSolved
12.11.2022 18:56:52 Gast56184
NotSolved
13.11.2022 13:02:41 Gast72634
NotSolved

Ansicht des Beitrags:
Von:
Gast79511
Datum:
12.11.2022 18:20:04
Views:
188
Rating: Antwort:
 Nein
Thema:
Über Textbox in Listbox nach Tabellennamen suchen

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


 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.11.2022 13:06:05 Marcus
NotSolved
12.11.2022 13:47:42 Gast87505
NotSolved
12.11.2022 14:51:28 Marcus
NotSolved
12.11.2022 15:07:40 ralf_b
NotSolved
Rot Über Textbox in Listbox nach Tabellennamen suchen
12.11.2022 18:20:04 Gast79511
***
Solved
13.11.2022 09:41:12 Marcus
NotSolved
12.11.2022 18:56:52 Gast56184
NotSolved
13.11.2022 13:02:41 Gast72634
NotSolved