muß doch nochmal fragen.
Ich hatte heute Hilfe erhalten komme jedoch nicht klar.
Wie man die gefundenen Werte in die mehrsp. Listbox verteilt?
(siehe Markierung ">>>>" )
Peter
Private Sub CmdSuchen_Click()
Dim rngFind As Range, rngFirst As Range
Dim rngAuswahl
Dim i
ListBox1.Clear
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
ListBox1.AddItem rngFind.Offset(0, 1)
'>>>>With ListBox1
'>>>>For i = 1 To ?
'>>>> .AddItem
'>>>> .List(i, 0) = rngFind.Offset(0, 0)
'>>>> .List(i, 1) = rngFind.Offset(0, 1)
'>>>> .List(i, 2) = rngFind.Offset(0, 2)
'>>>> Next
'>>>>End With
Set rngFind = Worksheets("Tabelle2").Columns(2).FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> rngFirst.Address
End Sub