ich möchte, dass in meiner listbox (auf einer userform) höchstens zwei listbox-einträge angeklickt werden können
so ungefähr:
"wenn anzahlausgewählter listboxeinträge größer 2 dann exit sub"
wie geht das richtig ?
Danke vorab & gruß, marioS
with listbox1
for i=0 to .listcount-1
n=n-.selected(i)
next
end with
if n>2 then exit sub
GrußPrivate Sub ListBox1_Change()
Dim lngL As Long
With ListBox1
lngL = .ListIndex
For i = 0 To .ListCount - 1
n = n - .Selected(i)
If n > 2 Then
.Selected(lngL) = False
MsgBox "Es dürfen max. 2 Elemente markiert werden !", _
vbCritical, "Markierung verweigert"
Exit Sub
End If
Next
End With
End Sub
Salut, NoNetDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen