Hallo zusammen,

ich habe ein Frage wie ich meinen Code einfach gestalten kann und vorallem komprimieren kann. Mir graut es davor wenn ich mir vorstelle ich müsste zum Schluss noch etwas anpassen. Folgende Ausgangssituation:

VBA Userform; 8 Checkboxen mit dahinter jeweils 5 Objekten (Textboxen, Kombiboxen und einer Datumsbox)

Alle Objetzte haben als default Wert bei Enabled = False (die Objekte sind also gesperrt) Und der Hintergrund ist per default in einem Grau, so dass das Feld ausgegraut erscheint.

Wenn dieCheckbox aktiviert wird, sollen alle dahinterliegnde Objekte entsperrt werden + Hintergrundfarbe auf weiß. Wenn der Haken wieder aus der Checkbox rausgenommen wird sollen alle Objekte wieder gesperrt werden und grau sein.

Ich habe das mit folgendem Code gelöst (Beispiel nur für die erste Zeile und drei Objekte):

If Check1 = True Then
        'Objekteentsperren
        Box1.Enabled = True
        Box1.BackColor = vbWhite
        Box2.Enabled = True
        Box2.BackColor = vbWhite
        Date1.Enabled = True
        Date1.CalendarBackColor = vbWhite
Else
        'Wenn Haken wieder bei Checkbox entfernt wird Objekte wieder sperren
        Box1.Enabled = False
        Box1.BackColor = &H8000000F

       ....usw.
End If

Ich glaube das ist viel zu Aufwendig und es gibt bestimmt deutlich elegantere Wege.

Ich freue mich auf euer Feedback.

VG Jerome