bitte um Hilfe.
Habe ein Problem beim füllen einer ListBox innerhalb einer Do-Schleife.
Ziel: Bei der Suche nach Suchbegriff aus der TextBox, die gefundene Werte aus der Tabelle2 (Spalte A und Spalte B) in die zweispaltige ListBox einfüllen.
Die Methode "addItem" kann ich nur bei der einspaltigen ListBox benutzen. Versuche ich die ".LIST"-Methode zu verwenden, kriege ich immer nur eine einzelne Zeile. Gibt es vielleicht eine "append"-Anweisung?
Kann mir jemand helfen? :-(
Hier das Coding(Kern):
Set rngFind = ActiveSheet.Cells.Find(what:=txtSuchen.Text, lookat:=xlPart, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
'###
Do
'Stop
'lstFind.AddItem rngFind
Zeile = rngFind.Row
lstFind.List = Range(Cells(Zeile, 1), Cells(Zeile, 2)).Value
'___________________________________________________________
Set rngFind = ActiveSheet.Cells.FindNext(After:=rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address rngFirst.Address
'###