in einer Listbox mit Multiselect werden mehrere Zeilen markiert. Wie ermittle ich die Anzahl der markierten Zeilen?
Danke
andreas
Private Sub listbox1_Change()
Dim iSelCnt As Integer
Dim ix As Integer
iSelCnt = 0
For ix = 0 To listbox1.ListCount - 1
If listbox1.Selected(ix) = True Then iSelCnt = iSelCnt + 1
Next ix
Msgbox "Anzahl selektierte =" & iSelCnt
End Sub