UF Steuerelemente Backcolor Schleife
21.04.2020 03:50:07
Andrea
Danke für die Hilfe.
Viele Grüße
Andrea
Hier der mein Code:
Sub Steuerelemente_füllen()
On Error Resume Next
Dim C As Range, MyControl As Object
For Each C In Range("Controlname")
Set MyControl = UserForm.Controls(C.Value)
MyControl.BackColor = C.Offset(, 7)
Userform2.Controls(C).BackColor = C.Offset(, 7)
Next
End Sub