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!