ich suche über eine Schleife eine Nummer und möchte diese, den Zellwert daneben und die Zellwert 13 Zellen weiter in eine Listbox auflisten.
Folgender Teil-code:
For Each c In Sheets("Liste").Range("C22:C1000")
If c.Value = such Then
kontr = "ja"
Set stck = c.Offset(0, 13)
stck.Value = CInt(txtStck)
'****************************************************************
'Code für LsbBest:
'zeile = 0
lsbBest.ColumnCount = 3
lsbBest.AddItem c
lsbBest.List(zeile, 1) = c.Offset(0, 1)
lsbBest.List(zeile, 2) = c.Offset(0, 13)
zeile = zeile + 1
'*********************************************************
Exit For
End If
Next c
Beim ersten mal funktioniert es, alle drei Zeilen der Listbox werden ausgefüllt.
Wenn ich das ganze mit einem neuen Suchbegriff (such) mache,
wird in der Listbox nur die erste Zeile mit dem neuen Begriff zusätzlich aufgelistet, Zeile 2 und 3 wird überschrieben.
D.h. in der ersten Listbox-Zeile stehen alle gesuchten Werte untereinander, bei Zeile 2 und 3 funktioniert das Listing nicht.
Kann wmir jemand sagen, was ich falsch mache?
Vielen Dank im voraus,
Michael