Thema Datum  Von Nutzer Rating
Antwort
10.02.2023 15:18:40 M.E.K.S.
NotSolved
10.02.2023 15:30:49 Gast3282
NotSolved
Rot Suche in Listbox
 10.02.2023 17:07:04 M.E.K.S.
Solved

Ansicht des Beitrags:
Von:
M.E.K.S.		 Datum:
10.02.2023 17:07:04		 Views:
170		 Rating:
     
Antwort:
 Nein
Thema:
Suche in Listbox

Ich habe jetzt eine andere Lösung gefunden :-)

 

Dim i As Integer, iMsg As Integer, ii As Integer
    For i = 0 To lb_Übersicht.ListCount - 1
    For ii = 0 To lb_Übersicht.ColumnCount - 1
        If InStr(1, UCase(lb_Übersicht.Column(ii, i)), UCase(tb_SucheStichwort.Text)) > 0 Then
            lb_Übersicht.ListIndex = i
            iMsg = MsgBox("Weitersuchen?", vbQuestion + vbYesNo, "Weitersuchen")
                If iMsg = vbNo Then Exit Sub
        End If
    Next
    Next

 

LG Markus

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
10.02.2023 15:18:40 M.E.K.S.
NotSolved
10.02.2023 15:30:49 Gast3282
NotSolved
Rot Suche in Listbox
 10.02.2023 17:07:04 M.E.K.S.
Solved