Find-Methode
25.05.2005 11:21:24
Dani
Ich habe da eine Suchfunktion. Der Suchbegriff wird in einer TextBox eingegeben und das Resultat in einer ListBox aufgelistet. Gesucht wird in der Spalte B. Ich möchte nun aber für die ListBox der jeweilige Wert der Spalte F. Wie mach ich das?
If suche.cb_name = True Then
suche.Ausgabe.Clear
With Worksheets("BC").Range("B:B")
Set c = .Find(name.Value)
If Not c Is Nothing Then
firstAddress = c.Address
Do
suche.Ausgabe.AddItem (c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End If
Gruss Dani