Listboxauswahl
11.03.2013 11:16:36
willfried
habe eine Listbox , die ich über Werte einer Zeile befüllen lasse .Der Code:
Dim rngZelle As Range
For Each rngZelle In Worksheets("Tabelle1").Range("K" & ActiveCell.Row & ":" & "V" & ActiveCell.Row)
If IsEmpty(rngZelle) Then Exit Sub
Me.lstBox.AddItem rngZelle.Value
Next rngZelle
For x = 0 To lstBox.ListCount - 1
If lstBox.Selected(x) = False Then
lstlstBox.Selected(x) = True
End If
Next
Das Einlesen der Werte funktioniert, alle Werte in der Listbox sind markiert- so soll es auch sein.
Wie stelle ich es an , das wenn nur K und L Werte haben nur diese in die Listbox eingelesen werden und dann Schluss ist?
In meinem Fall liest er immer alle Zellen ein auch wenn kein Wert vorhanden ist. Ich bekomme in der Listbox dann ein Auswahlfeld das leer ist.
Vielen Dank