Herbers Excel-Forum - das Archiv

Werte suchen & Ergebnis in 2 spalt. Listbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox
Bild

Betrifft: Werte suchen & Ergebnis in 2 spalt. Listbox
von: Peter

Geschrieben am: 16.02.2005 21:06:59
Hallo,
ich möchte den Inhalt der aktiven Zelle aus Tabelle1
in Tabelle2, Spalte2 suchen.
Wird der Wert gefunden, sollen die Werte aus Tabelle2 Spalte3 und Spalte4, der Fundzeile,
in eine 2 spaltige Listbox übernommen werden.
Über Hilfe würde ich mich sehr freuen
Peter

Private Sub cmdSuchen_Click()
Dim rngFind As Range, rngFirst As Range
Dim rngAuswahl
rngAuswahl = ActiveCell.Value
Set rngFind = Worksheets("Tabelle2").Columns(2).Find(rngAuswahl, lookat:=xlPart, LookIn:=xlValues)
If rngFind Is Nothing Then
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
'lstFind.AddItem rngFind.Offset(0, 1)     ‘bis hie OK
'  *** FEHLER:-TYPENKONFLIKT
lstFind.AddItem Range(Cells(rngFind.Row, 3), Cells(rngFind.Row, 4)).Value
Set rngFind = Worksheets("Tabelle2").Columns(2).FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> rngFirst.Address
End Sub

Bild

Betrifft: AW: Werte suchen & Ergebnis in 2 spalt. Listbox
von: Christoph M

Geschrieben am: 16.02.2005 21:27:44
Hallo Peter,
du kannst einer mehrspaltigen Listbox "itemweise" keinen Range übergeben.
Hier müssen die ListBoxfelder einzeln angesprochen werden à la:
With lstFind
For i = 1 To ...
.AddItem rngFind.Offset(0, 1)
.List(i, 1) = rngFind.Offset(0, 2)
.List(i, 2) = rngFind.Offset(0, 3)
'usw.
Next
End With

oder etwas übersichlicher:
With lstFind
For i = 1 To ...
.AddItem
.List(i, 0) = rngFind.Offset(0, 1)
.List(i, 1) = rngFind.Offset(0, 2)
.List(i, 2) = rngFind.Offset(0, 3)
'usw.
Next
End With

Gruß
Christoph

Bild

Betrifft: AW: Danke Christoph
von: Peter
Geschrieben am: 16.02.2005 21:34:47
Danke Dir,
jetzt komm ich weiter.
Peter
 Bild
Excel-Beispiele zum Thema "Werte suchen & Ergebnis in 2 spalt. Listbox"
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren Wert in Array suchen, ohne jedes Datenfeld abzufragen