Schleife
23.04.2021 10:13:22
Fritz
Ich habe in einer Userform, 24 CommandButtons mit der Bezeichnung CommandButton1 bis 24
In der Tabelle1 habe ich in der Spalte B 50 verschiedene Länder. Ich würde gerne ein Land auswählen (mache ich manuell) Z.B Zelle B2, danach sollen die Zellen rechts neben der aktiven Zelle überprüft werden. Befindet sich darin ein X soll der CommandButton1 rot eingefärbt werden.
Das funktioniert mit folgendem Code
If Sheets("Transitvisa").Range("C2").Value = "x" Then
UserForm5.CommandButton1.BackColor = &HFF&
End If
Mein Problem ist das die Zellen die überprüft werden sollen natürlich von der zuvor ausgewählten Zelle abhängig ist. Das ganze soll mit einer Schleife fortsetzen werden, bis ich bei der Spalte Z angelangt bin . Also wenn in C2 ein x dann CommandButton1 rot einfärben, wenn in D2 ein x dann CommandButton2 rot einfärben ..