2 For Schleifen
07.02.2023 14:30:38
Chris
ich habe 4 Commandbuttons in einer Userform. Jeder CB enthält zudem ein Label.
Ich möchte diese COmmandbuttons per Schleife durchlaufen, sobald einer der vier CB nicht aktiv ist, soll das dort enthaltende Label seine Farbe ändern.
Leider bekommt ich das mit der ForSchleife nicht zum Laufen. Wo liegt der Fehler? Viele GRüße Chris
Dim CBIndex2, labindexcolor As Long
For CBIndex2 = 22 To 25
For labindexcolor = 16 To 19
If Me.Controls("Commandbutton" & CBIndex2).Enabled = False Then
Me.Controls("Label" & labindexcolor).BackColor = RGB(192, 192, 192)
End If
Next
Next