Setzen von Werten in Listenfeld mit Mehrfachauswahl

[ReginaR]

Hallo Zusammen,

noch eine Frage zu Listenfelder in einem Formular. Das Listenfeld ist auf Mehrfachauswahl gestellt. Der erste Eintrag in der Liste lautet "Alle" (wird aus dem ersten Datensatz in der zu Grunde liegenden Tabelle gelesen). Ich möchte jetzt, dass alle Einträge des Listenfeldes selektiert werden, wenn auf dieser ersten Eintrag geklickt wurde. Kann mir da jemand einen VBA-Schnipsel geben?

Gruß Regina

[DF6GL]

Hallo,

Code [Auswählen] Erweitern

Private Sub Liste1_Click()
Dim i As Long
If Me!Liste1.Column(0) = "Alle" Then
Me!Liste1.Selected(0) = False
For i = 1 To Me!Liste1.ListCount - 1
Me!Liste1.Selected(i) = True
Next
End If

End Sub

[ReginaR]

Hallo,

prima, vielen Dank. Funktioniert!

Gruß
Regina