ich habe einen vierspaltige Listbox.
Einträge in den Spaltenindexes sind : Zahlen, Namen, Namen, ZahlenBuchstaben
Die vierte Spalte soll in ein Label ausgegeben werden. Dies Löse ich so:
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) =true Then
Userform1.label1.caption = ListBox1.List(ListBox1.ListIndex, 3)
end if
next i
Soweit funktioniert das auch.
Es kommt allerdings vor, dass in der ersten Spalte doppelte Einträge vorhanden sind (2x die 9) und die jeweiligen Einträge in der vierten Spalte unterschiedlich sind.
Selektiere ich nun einen Eintrag, dessen Wert in der ersten Spalte an anderer Stelle (=vorher) schon vorhanden ist, erhalte ich den Wert der vierten Spalte des zuerst vorhandenen doppelten Wertes, obwohl dieser nicht selektiert ist. Meiner Meinung nach liegt es an .ListCount-1, da hier die Listbox von unten durchsucht wird und anscheinend bei ersten vorkommenden doppelten Wert stoppt, auch wenn dieser nicht selektiert ist.
Wie kann ich sicherstellen, dass immer nur Werte des wirklich selektierten Reihe im Label ausgegeben werden?
Gruß
CptTuttle