Hallo Excelfreunde,
ich möchte gern die Anzahl der zu markierenden Zeilen in der Listbox2 im multiselect Modus begrenzen.
Dazu habe ich ein Marco im Netz gefunden.
Dim i%, x%
With ListBox2
For i = 0 To .ListCount - 1
If .Selected(i) Then x = x + 1
Me.Caption = CStr(x) & " selected"
If x > 10 Then .Selected(i) = 0
Next
End With
Leider stürzt mein Excel mit diesem Code ständig ab.
Hat jemand eine ander Lösung für mich?
Habt schon mal rechtvielen dank für euer Interesse.
mfg thomas