wie kann ich den listindex der in einer listbox markierten einträge ausgeben?
vielleicht kann mir jemand helfen!
vielen dank, lg peter
Sub tt()
Dim i As Integer, strSel As String
With listbox1
For i = 0 To .ListCount - 1
If .Selected(i) Then strSel = strSel & i & ";"
Next i
End With
MsgBox Left(strSel, Len(strSel) - 1)
End Sub