Werte suchen & Ergebnis in 2 spalt. Listbox
16.02.2005 21:06:59
Peter
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