ich habe eine UF mit der ich mit unten stehendem Makro bestimmte Einträge auswähle. Funktioniert soweit wunderbar.
Es ist jedoch möglich, per Maus die Einträge weiterhin zu selektieren, egal ob mit Single oder Multiselect. Ich möchte die Auswahl der Items mit der Maus sperren, OHNE die Eigenschaft LOCKED der UF auf TRUE zu setzen, weil dann der Scrollbalken an der rechten Seite der UF nicht mehr zu gebrauchen ist, was nicht sein soll.
Hat da jmd. einen Vorschlag?
Dim zeile As Long
For zeile = 0 To UserForm1.ListBox2.ListCount - 1
If UserForm1.ListBox2.List(zeile, 4) = "OK" Then
UserForm1.ListBox2.Selected(zeile) = True
End If
Next zeile
Gruß
Chris