AW: Statt Checkboxen Listbox mit MultiSelect
11.05.2009 17:08:27
Daniel
Hi
verwende statt der Checkboxen eine Steuerelement-Listbox mit aktivierter MULTISELECT-Eigenschaft und bei LISTSYTLE mit der Eigenschaft 1-frmListStyleOption.
das funktioniert genau so wie Checkboxen, aber lässt sich viel einfacher Handhaben, sowohl beim Erstellen, als auch beim Auswerten.
Einziger Nachteil, die "Checkboxen" stehen halt immer untereinander und können nicht individuell angeordnet werden.
befüllt werden könnte das ganze über folgendes Makro:
Private Sub ListBox1_GotFocus()
Dim arr
Dim i As Long, x As Long
arr = Intersect(Range("A1").CurrentRegion, Columns(1)).Value
With ListBox1
For x = 1 To UBound(arr, 1)
For i = 0 To (.ListCount - 1)
If arr(x, 1) = .List(i) Then Exit For
Next
If i > .ListCount - 1 Then .AddItem arr(x, 1)
Next x
End With
End Sub
Gruß, Daniel