Thema Datum  Von Nutzer Rating
Antwort
Rot VBA listbox doppelklick öffnet UF
20.12.2022 14:15:36 Jan
Solved
20.12.2022 14:57:45 Gast6384
Solved
20.12.2022 15:02:02 Jan
Solved

Ansicht des Beitrags:
Von:
Jan
Datum:
20.12.2022 14:15:36
Views:
222
Rating: Antwort:
 Nein
Thema:
VBA listbox doppelklick öffnet UF

Hallo,

 

ich habe eine listbox die beim öffnen in einer UF alles lädt. 

zusätzlich eine Textbox mit der man nach allen spalten in der listbox suchen kann 

in diesem Fall nach Name, Vorname, Kundennummer  > das klappt soweit auch 

Code für die Suche 

Dim Zeile As Long

Me.ListBox_suchen.Clear


For Zeile = 20 To Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row

 If InStr(1, LCase(Tabelle2.Cells(Zeile, 2).Value), LCase(Me.TextBox1.Value)) <> 0 Or _
    InStr(1, LCase(Tabelle2.Cells(Zeile, 3).Value), LCase(Me.TextBox1.Value)) <> 0 Or _
    InStr(1, LCase(Tabelle2.Cells(Zeile, 4).Value), LCase(Me.TextBox1.Value)) <> 0 Then
 

    Me.ListBox_suchen.AddItem Tabelle2.Cells(Zeile, 1).Value
    Me.ListBox_suchen.List(Me.ListBox_suchen.ListCount - 1, 1) = Tabelle2.Cells(Zeile, 2).Value
    Me.ListBox_suchen.List(Me.ListBox_suchen.ListCount - 1, 2) = Tabelle2.Cells(Zeile, 3).Value
    Me.ListBox_suchen.List(Me.ListBox_suchen.ListCount - 1, 3) = Tabelle2.Cells(Zeile, 4).Value
    
  End If
  Next Zeile
 

das funktioniert soweit auch

jetzt habe ich ein Doppelklick event in dem man auf den Inhalt der listbox klicken kann und direkt zur korrekten Zeile springt

Wenn man jetzt direkt klick geht es aber wenn man erst in der Suche etwas sucht dann kommt ein Laufzeitfehler. 

Habt ihr eine Idee was ich übersehe oder falsch mache?

Hier das Doubleclick Event:

 

Private Sub ListBox_suchen_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Worksheets("Vorlage").Activate

ActiveWindow.ScrollRow = ListBox_suchen.List(ListBox_suchen.ListIndex, 0)

Worksheets("Vorlage").Range("B" & ListBox_suchen.List(ListBox_suchen.ListIndex + 19, 0)).Select  <<<< hier Laufzeitfehler


Unload Me
 

Danke für Eure Hilfe!


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
Rot VBA listbox doppelklick öffnet UF
20.12.2022 14:15:36 Jan
Solved
20.12.2022 14:57:45 Gast6384
Solved
20.12.2022 15:02:02 Jan
Solved