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
Hallo,
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
Hallo,
prima, vielen Dank. Funktioniert!
Gruß
Regina