zunächst vielen Dank für Deine Antwort. Funktioniert prima nur mit den Schleifen bin ich am verzweifeln.
Kanst Du mir da noch mal helfen.
Nachfolgend Deine Lösung:
With Cells
Set Found = .Cells.Find(Search, LookAt:=xlPart)
If Found = "" Then Exit Sub 'falls nix gefunden wird sub verlassen
wert0 = Found.Select 'dein search
wert1 = ActiveCell
wert2 = ActiveCell.Offset(0, -1)
wert3 = ActiveCell.Offset(0, 1)
frm_Foerster.ListBox1.AddItem 'musst du für jedes gefundene search angeben
frm_Foerster.ListBox1.List(0, 0) = wert1 'spalte b
frm_Foerster.ListBox1.List(0, 1) = wert2 'spalte a
frm_Foerster.ListBox1.List(0, 2) = wert3 'spalte c
End With
Und hier nochmal das Problem:
Habe eine Tabelle mit Daten in Spalten A, B und C. In Spalte B steht mein Suchkriterium, welches auch öfter vorkommen (Name z.B. Förster existiert 5x) kann.
Suchkriterium wird festgelegt z.B
Search = "Förster"
Nun soll in der UF-Listbox an erster Stelle mein Suchkriterium stehen (also 5x Förster) mit den jeweils zugehörigen Daten der Spalten A und C.
Für Deine Mühe schon mal vielen Dank
Gruss Tobias