|
Hallo Jerome,
ein möglicher Ansatz:
Dim Farbe
With Me
Farbe = IIf(.check1, vbWhite, &H8000000F)
.Box1.Enabled = .check1
.Box2.Enabled = .check1
.Box1.BackColor = Farbe
.Box2.BackColor = Farbe
.Date1.Enabled = .check1
.Date1.CalendarBackColor = Farbe
End With
Wenn es mehr als 2 .Box wären, könnte man über eine Konstruktion
With Me
SetBox .Box1, .Check1
SetBox .Box2, .Check1
.Date1.Enabled = .Check1
.Date1.CalendarBackColor = IIf(.Check1, vbWhite, &H8000000F)
End With
Function SetBox(BName As Object, Ena)
BName.Enabled = Ena
BName.BackColor = IIf(Ena, vbWhite, &H8000000F)
End Function
nachdenken, für 2 Stück erscheint mir das aber übertrieben.
Gruß der Martin
|