Office: (Office 2016) Formatierung ändern mit Kontrollkästchen

Hallo zusammen,

ich komme bei einem Problem einfach nicht weiter.
Ich habe ein Formular mit mehreren Datumsfelder.
Zu einem Datumsfeld gehören ein Kontrollkästchen, zwei Bezeichnungsfeldern, einem Combofeld und einem Textfeld (Datumsfeld).

Nun möchte ich wenn ich das Formular aufrufe, das wenn das Kontrollkästchen auf Nein steht, das die beiden Bezeichnungsfelder graue Schrift haben und das Combo und Textfeld deaktiviert ist. Wenn es auf ja steht sollen die beiden Bezeichnungsfelder schwarze Schrift haben und die beiden anderen Felder aktiviert sein.

Soweit so gut funktioniert auch mit einem ( in dem Beispiel Kontroll_Rotstiftzeichnung).
Sobald ich aber ein zweites ( in dem Beispiel Kontroll_KB_Berechnung_uebergeben) dazupacke, kommt Laufzeitfehler 438.

Hier der Code:

Private Sub Form_Load()

grey = RGB(140, 140, 140)

If Me!Kontroll_Rotstiftzeichnung = True Then
Me!Txt_Rotstiftzeichnung.Enabled = False
Me!Combo_Rotstiftzeichnung_Rang.Enabled = False
Bez_Nr_Rotstiftzeichnung.ForeColor = 0
Bez_Rotstiftzeichnung.ForeColor = 0
Else
Me!Txt_Rotstiftzeichnung.Enabled = False
Me!Combo_Rotstiftzeichnung_Rang.Enabled = False
Bez_Nr_Rotstiftzeichnung.ForeColor = grey
Bez_Rotstiftzeichnung.ForeColor = grey
End If

If Me!Kontroll_KB_Berechnung_uebergeben = True Then
Me!Txt_KB_Berechnung_uebergeben.Enabled = True
Me!Combo_KB_Berechnung_uebergeben_Rang.Enabled = True
Bez_Nr_KB_Berechnung_uebergeben.ForeColor = 0
Bez_KB_Berechnung_uebergeben.ForeColor = 0
Else
Me!Txt_KB_Berechnung_uebergeben.Enabled = False
Me!Combo_KB_Berechnung_uebergeben_Rang.Enabled = False
Bez_Nr_KB_Berechnung_uebergeben = grey
Bez_KB_Berechnung_uebergeben = grey
End If

End Sub

Private Sub Kontroll_Rotstiftzeichnung_Click()

grey = RGB(140, 140, 140)

If Me!Kontroll_Rotstiftzeichnung = True Then
Me!Txt_Rotstiftzeichnung.Enabled = False
Me!Combo_Rotstiftzeichnung_Rang.Enabled = False
Bez_Nr_Rotstiftzeichnung.ForeColor = 0
Bez_Rotstiftzeichnung.ForeColor = 0
Else
Me!Txt_Rotstiftzeichnung.Enabled = False
Me!Combo_Rotstiftzeichnung_Rang.Enabled = False
Bez_Nr_Rotstiftzeichnung.ForeColor = grey
Bez_Rotstiftzeichnung.ForeColor = grey
End If
End Sub

Hoffe ich habe mich verständlich ausgedrückt.
Jemand eine Idee was ich falsch mache?

Vielen Dank.

Viele Grüße*Smilie

:)

 

\@All
Laufzeitfehler 438: "Objekt unterstützt diese Eigenschaft oder Methode nicht"

Dimensioniere zunächst:
Code:

Verwende generell
Code:

im Modulkopf, dann wird die Schwachstelle angezeigt.

Code:

Hier fehlt jeweils die Eigenschaftszuweisung .ForeColor.

 

Hallo trekki1701,

und bitte verwende Code-Tags und Einrückungen im VBA Code. Das erhöht die Lesbarkeit beträchlich.

Gruß Ulrich

 

Danke, Ulrich, hab's korrigiert.

 

Super, funktioniert wie gewünscht.

Vielen lieben Dank.

Trekki1701*Smilie