Schleife durch Labels und CBs
12.01.2023 07:09:00
Chris
ich möchte die Hintergrundfarbe von mehreren Labels per Schleife ändern:
1. Der Wert im Sheet Test ab A1 soll mit dem Caption der Commandbutton22 verglichen werden.
2. Wenn eine Übereinstimmung festgestellt wird, soll sich die Farbe des Label143 ändern.
3. Jetzt soll der Wert in A2 mit dem Caption der Commandbutton23 verglichen werden.
4. Wenn eine Übereinstimmung festgestellt wird, soll sich die Farbe des Label144 ändern.
usw.
HIer das Makro, was leider nicht läuft. Wie liegt der Fehler? Chris
Private Sub UserForm_Click()
Dim lnglast, i, CBindex, COLlab As Long
lnglast = Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lnglast
For CBindex = 22 To 25
For COLlab = 143 To 146
If UserForm2.Controls("CommandButton" & CBindex).Caption = Sheets("Test").Cells(i, 1).Value Then
UserForm2.Controls("Label" & COLlab).BackColor = vbRed
End If
Next
Next
Next
End Sub