Hallo,
Ich habe folgenden Code der die Hintergrundfarbe des Formulars und der Labels änder soll, die des Formulars funktioniert, doch die Label-Farbe ändert sich nicht:
Private Sub ComboBox1_Change()
Dim txt As Control
If ComboBox1.Text = "Strafen" Then
Me.BackColor = 16744576
If TypeOf objControl Is MSForms.Label Then
For Each txt In Me.Controls
txt.BackColor = 16744576
Next txt
End If
Else
Me.BackColor = 13553535
If TypeOf objControl Is MSForms.Label Then
For Each txt In Me.Controls
txt.BackColor = 13553535
Next txt
End If
End If
End Sub
Vielen Dank für eure Hilfe!
P.S.: woher bekommt man denn die Farbcodes?
|