Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2020to2024
2020to2024
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

UserFormTB3_eingabe_suchen_in_ListBox3

Forumthread: UserFormTB3_eingabe_suchen_in_ListBox3

UserFormTB3_eingabe_suchen_in_ListBox3
08.12.2025 12:35:43
Achim H.
https://www.herber.de/bbs/user/179789.xlsx

Hallo Excel VBA Kenner.

Ich komme nicht weiter. In meiner Userform befindet sich im Frame1 eine Listbox3. Des weiteren eine Textbox3.
immer wenn ich in der textbox3 etwas eingebe soll aktiv in der listbox3 danach gesucht werden. wenn der wert nicht vorhanden allerdings eine MSG Box"nicht vorhanden".
eine Beispielsdatei habe ich dazu gepackt.
schon mal Danke im vorraus.

Gruß
Achim H.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserFormTB3_eingabe_suchen_in_ListBox3
08.12.2025 12:57:37
Piet
Hallo

dein Beispiel ist eine leere Tabelle xlsx statt xlsm, Ohne Userform.
Da ist es 'a bissl' schwierig deine ListBox und TextBox zu finden!

mfg Piet
AW: UserFormTB3_eingabe_suchen_in_ListBox3
08.12.2025 13:28:09
Piet
Hallo Achim

auf Grund deiner Beschreibung sollte der untere Code funktionieren. Bitte testen.
Zum auslösen des Makros musst du die Userform an beliebiger Stelle anklicken.

mfg Piet 



Private Sub UserForm_Click()

   n = ListBox3.ListCount

   For j = 0 To n - 1

       If ListBox3.List(j) = TextBox3.Text Then Exit Sub

   Next j

   MsgBox TextBox3.Text & " - nicht gefunden!"

End Sub
Anzeige
AW: UserFormTB3_eingabe_suchen_in_ListBox3
08.12.2025 15:33:36
Achim H.
ich habe eine lösung gefunden klappt super

Private Sub TextBox3_Change()
Dim searchText As String
Dim i As Long
Dim found As Boolean

searchText = Trim(Me.TextBox3.Text)
found = False

' Falls Suchfeld leer ist, Auswahl aufheben
If searchText = "" Then
Me.ListBox3.ListIndex = -1
Exit Sub
End If

' Durch alle Einträge der ListBox iterieren
For i = 0 To Me.ListBox3.ListCount - 1
' Teilstring-Suche (Groß-/Kleinschreibung ignorieren)
If InStr(1, Me.ListBox3.List(i), searchText, vbTextCompare) > 0 Then
Me.ListBox3.ListIndex = i ' Ersten Treffer markieren
found = True
Exit For
End If
Next i

' Falls nichts gefunden wurde
If Not found Then
Me.ListBox3.ListIndex = -1
End If
Anzeige
AW: UserFormTB3_eingabe_suchen_in_ListBox3
08.12.2025 15:35:53
Kuwer
Hallo Achim, 

Private Sub TextBox3_Change()

  Dim i As Long

  With ListBox3

    For i = .ListCount - 1 To 0 Step -1

      .Selected(i) = Len(TextBox3.Text) * (.List(i) Like TextBox3.Text & "*")

    Next i

  End With

End Sub


Gruß, Uwe
Anzeige
AW: Ergänzung
08.12.2025 15:52:10
Kuwer
Wenn Groß-/Kleinschreibung nicht berücksichtigt werden soll, muss diese Zeile in den Kopfbereich des Moduls: 

Option Compare Text


Gruß, Uwe
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum