>> ich dachte ich hatte das beschriebn.
Nein, hast du immer noch nicht komplett beschrieben.
Denn das hier, funktioniert, ...
Const Rot = vbRed '&HFF
Dim x As Long
For x = 1 To 5
If UserForm1.Controls("CommandButton" & x).BackColor = Rot Then
MsgBox "Geht doch!", vbInformation
End If
Next
... und ist von der Vorgehensweise her zu deinem Code identisch.
Du läßt demnach wichtige Informationen weg (um nicht zu sagen, du unterschlägst sie).
Darum gehts hier gerade!
Wenn ich noch konkreter werden soll:
-
Was ist z.B. die Variable Rot, welchen Wert hat die?
-
Du sagst auch nicht was nicht funktioniert, bzw. wie es sich äußert. Du sagst einfach nut "geht net" und das ist immer eine unzureichende Info mit der niemand etwas anfangen kann.
-
Kommt ne Fehlermeldung (wie lautet der Fehlercode / -text), oder wird die Bedingung nie erfüllt, ... usw
Gruß
|