Office: Alle Checkboxen anwählen und definieren

Hallo liebe Leuts,

Vielleicht kann mir jemand hier weiterhelfen?
Ich habe mehrere Checkboxen in einem Dokument und möchte alle nicht aktiven Checkboxes farblich grau hinterlegen ohne dabei jede im VBA einzeln anzusprechen.
Folgendes habe ich schon probiert:

Sub test()
Dim ctrBox As Control
For Each ctrBox In Control
If TypeName(ctrBox) = "CheckBox." And ctrBox.Value = False Then
ctrBox.ForeColor = &H80000000
If TypeName(ctrBox) = "CheckBox." And ctrBox.Value = True Then
ctrBox.ForeColor = &H80000008
End If
Next ctrBox
End Sub

Hier tut sich nichts und ich komme nicht weiter.
Hat jemand eine Lösung oder geht das überhaupt?
Über Eure Hilfe wäre ich sehr verbunden.

BG Toni

 

Hallo Toni,

fehlt nicht ein Bezug zur Tabelle?

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Bilder statt Datei | Excel ist sexy!

Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
ändern.

Das ist nur meine Meinung zu dem Thema.

 

Hi Toni,

um welchen Typ CheckBoxen handelt es sich: ActiveX- oder Formularsteuerelement?

Dein Code gilt 1. für CheckBoxen in einem UserForm, nicht im Tabellenblatt und 2. wird die Schriftfarbe und nicht die Steuerelementfarbe geändert.

---

 

Hi Karin,

entschuldige meine verspätete Antwort. Ich hatte das Thema aus zeitlichen Gründen verschieben müssen.

Es handelt sich um ActiveX-Steuerelemente.
Ok. Wie kann ich den Code auf das Tabellenblatt beziehen?
Ja genau es soll auch die Schriftfarbe grau hinterlegt werden, sodass aktive und nicht aktive CheckBoxen optisch besser unterscheiden kann.

Vielen Dank schon mal für die Rückmeldung und Hilfe

BG
Toni

 

Hi Toni,

ActiveX-Steuerelemente im Tabellenblatt kann man als OLEObject ansprechen und den Typ des Steuerelementes dann über die Object-Eigenschaft ProgID unterscheiden:

Code:

    Dim oobElement As OLEObject
    For Each oobElement In ActiveSheet.OLEObjects
        If oobElement.progID = "Forms.CheckBox.1" Then
            If oobElement.Object Then
                oobElement.Object.ForeColor = &H80000008
            Else
                oobElement.Object.ForeColor = &H80000000
            End If
        End If
    Next oobElement

---

 

Hi Karin,
vielen Dank für den Hinweis.
Irgendwie komme ich da trotzdem nicht zur Lösung.
Wenn ich das eingebe passiert ändert sich die Schriftfarbe der Checkboxen nicht. Wahrscheinlich fehlt da noch was.
Wird in dem Code auch geschaut ob die CheckBox aktiv oder nicht aktiv ist?
So wird doch erstmal nur nach der Art des Steuerlementes geprüft, richtig?

BG
Toni

 

Hi Toni,

das kann ich icht nachvollziehen - der Code ändert die Schriftfarbe je nachdem ob die CheckBox aktiv oder nicht aktiv ist.

---

 

Hi Karin,
ja stimmt, das funktioniert. Habe meinen Fehler endeckt.
Vielen herzlichen Dank für deine Hilfe.
VLG
Toni