Beschränkungen

Forumthread: Beschränkungen

Beschränkungen

14.08.2005 16:30:43

Norbert

Liebe Leute,
wie kann ich die MultiSelection auf 2 Einträge beschränken?
Norbert S.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Beschränkungen

14.08.2005 16:41:23

Matthias

AW: Beschränkungen

14.08.2005 16:41:23

Matthias

Hallo Norbert,
am Beispiel einer Listbox (hier Listbox1):


Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer, z As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then z = z + 1
Next i
If z > 2 Then
MsgBox "Es dürfen nur maximal 2 Einträge ausgewählt werden!"
Cancel = True
'Alles deselektieren
For i = 0 To .ListCount - 1
.Selected(i) = False
Next i
End If
End With
End Sub

Guß Matthias

Forumthread: Beschränkungen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread