ich benötige dringend Hilfe in Sachen Listbox. Ein Part in VBA, den ich immer weit nach hinten geschoben habe, aber jetzt nicht drumherum komme. Werde aus der Hilfe auch nicht wirklich schlau.
Ich möchte nämlich eine Listbox, die 4 Spalten besitzt mit einer For-Schleife befüllen.
Eine Combobox, habe ich mit ca. 1500 Einträgen befüllt.
Wenn ich nun einen dieser Einträge auswähle und die combobox verlasse, dann soll dieser Eintrag in einer anderen Tabelle gesucht werden.
In der Zelle "CY1" habe ich mit einfacher Formel sprich: Zählenwenn hinterlegt, wie oft es den Eintrag gibt.
So oft soll sich nun meine Schleife wiederholen.
.Range("B2:CW163").Select 'Suchbereich markieren
For i = 1 To .Range("CY1").Value
Selection.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Activate 'Eintrag der Combobox im Bereich suchen
---> an diesem Punkt, so denke ich müsste jetzt die Listbox eingebaut werden, aber wie?
Spalte 1 = Position wäre wahrscheinlich: i & "."
Spalte 2 = .Cells(ActiveCell, 1).Value
Spalte 3 = .Cells(ActiveCell, ActiveRow+1).Value
Spalte 4 = .Cells(ActiveCell, 102).Value
Next i
Würde mich sehr über eure Feedbacks freuen.
Vielen Dank!
Mit freundlichen Grüßen
Richard Esau