|
Visual Basic & Access - VBA: Listenfelder I
Ich möchte in einem Listenfeld gerade die Einträge erhalten, die der Anwender NICHT ausgewählt hat.
Lösung:
Dim i As Integer
For i = 0 To MeinListenfeld.ListCount - 1
If MeinListenfeld.Selected(i)
= True Then
Debug.Print
"Ausgewählt: "; i; MeinListenfeld.List(i)
Else
Debug.Print
"Nicht ausgewählt: "; i; MeinListenfeld.List(i)
EndIf
Next i
|