alle Checkboxen in Listbox aktivieren
09.11.2013 07:12:25
Lothar
Ich habe in einem Userform eine Listbox
- MultiSelect: 1 - fmMultiSelectMulti
- ListStyle: 1 - fmListStyleOption
Wenn das Userform geöffnet und die Listbox gefüllt wird,
was dynamisch erfolgt, muss man, wenn alle Einträge ausgewählt werden sollen,
jede einzelne Checkbox anklicken.
Ist es möglich per Commandbutton alle gleichzeitig zu aktivieren / deaktivieren?
Habe im Netz schon verschiedene Beiträge gefunden, wie z.B. diesen:
Option Explicit
Sub CheckAll()
Dim oChk As OLEObject
For Each oChk In OLEObjects
If TypeName(oChk.Object) = "CheckBox" Then
oChk.Object.Value = True
End If
Next
End Sub
Fehler beim Kompilieren:
Variable nicht definiert
in dieser Zeile:
For Each oChk In OLEObjects
dieser Teil:
In OLEObjects
ist blau markiert
Kann mir jemand einen Tipp geben, was ich wo ändern muss?
Im Anschluss soll diese Listbox als so 'ne Art Playlist an den Windows Mediaplayer übergeben werden. Auch dafür habe ich schon einige Beiträge gefunden.
Leider alle nur immer für einen Titel. Das funktioniert auch super, aber es ist halt nervig.
Vielleicht hat ja auch jemand für dieses Problem eine Idee oder sogar Lösung.
Vielen Dank Lothar