Probleme mit Listbox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

So sieht der Code aus:

Private Sub fuellen(by value ssucheintrag as string)
Dim Loletzte As Long
Dim Loi As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
For Loi = 2 To Loletzte
If InStr(1, Cells(Loi, 1), ssucheintrag, vbTextCompare) > 0 _
Or InStr(1, Cells(Loi, 3), ssucheintrag, vbTextCompare) > 0 Then
UFsuchen.ListBox1.AddItem Cells(Loi, 1)
UFsuchen.ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(Loi, 3)
End If
Next Loi
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim text1, text2, text3 As String
text1 = ListBox1.List(ListBox1.ListIndex, 0)
text2 = ListBox1.List(ListBox1.ListIndex, 1)
text3 = ListBox1.List(ListBox1.ListIndex, 2)
Sucheintrag = ListBox1.List(ListBox1.ListIndex, 0)
End Sub

Funktioniert ja auch, nur das Event ListBox1_DblClick kann ich nicht anwenden, da nach dem Aufruf des Unterprogramms "fuellen()" zwar die Listbox gefüllt wird aber das Programm nach beenden des Unterprogramms weiter läuft und ich in der Listbox nichts auswählen kann.

Hallo,
na ja, ich bin nicht gut in Worten.
Ich Beschreib mal den Verlauf:
Excel wird gestartet und eine Userform mit 2 CMD Buttons aufgerufen.
Nach dem Click auf den zweiten Button springt das Programm in Modul1 mit Option explicit und führt einige Befehle wie Deklaration von globalen Variablen etc. durch.
Aus diesem Modul wird dann mit UFsuche.show, so heißt die Userform mit der Listbox, aufgerufen.
Nun wird in eine Textbox ein Suchbegriff eingegeben und die Exceldatei, in der gesucht werden soll geöffnet. Die Datei wird mit Set SecondBook = ActiveWorkbook in die Variable geschrieben.
Jetzt wird das UNterprogramm fuellen(ssucheintrag) aufgefufen, wobei ssucheintrag der Wert aus der Listbox ist.
Funktioniert alles, die Listbox wir 3-spaltig gefüllt und angezeigt.
Meine Erwartung wäre jetzt, dass die Listbox solange angezeigt wird, bis ich mit dem Dbl_Click Event eine Zeile ausgewählt habe.
Das macht das Programm aber nicht. Die Listbox wird gefüllt und das Programm springt sofort wieder in den Code direkt nach dem Aufruf der Subroutine "call fuellen(ssucheintrag)", also nix mit Auswählen per Doppelclick.
Was muss ich tun, damit ich nach Füllen der Listbox einen entsprechenden aufgelisteten Wert auswählen kann.

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Probleme mit Listbox

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread