Listbox mit Checkboxen
22.10.2015 14:21:53
yummi
ich habe mir ein Userform mit einem ListBox Element gebastelt.
Multiselect steht auf 1
Liststyle ebenfalls 1 (dadurch werden mir die Checkboxen für jede Zeile angezeigt)
Jetzt habe ich mir eine zusätzliche Checkbox genommen um alle Einträge zu selektieren bzw. zu deselektieren. Das klappt auch alles ohne Probleme.
Meine Frage jetzt: Ist es möglich, das die selektierten Einträge nur durch den Haken in der Checkbox gekennzeichnet werden und nicht noch komplett blau hinterlegt sind?
Wenn ja, was muss dafür eingestellt werden bzw. was gecodet?
Mein verwendeter Code dafür sieht so aus:
Private Sub CheckBoxAlle_Click()
Dim i As Long
For i = 0 To Me.ListBoxFzg.ListCount - 1
Me.ListBox1.Selected(i) = Me.CheckBoxAlle.Value
Next i
End Sub
Private Sub UserForm_Initialize()
Dim llast As Long
Dim i As Long
Initialisiere 'Hier wird wksDaten gesetzt
llast = wksDaten.Cells(wksDaten.Rows.Count, 1).End(xlUp).row
For i = 2 To llast
Me.ListBox1.AddItem (wksDaten.Cells(i, 1).Value)
Me.ListBox1.Selected(i - 2) = True
Next i
End Sub
yummi