Farbe von UF 2 in UF1 Übernehmen
24.06.2021 09:52:08
UF
ich komm nicht drauf wie ich das grad Lösen kann. Vielleicht könnt ihr mir da weiterhelfen.
In der Userform1 habe ich ein Textbox. Die ist Farblich Grau. Sobald ich da einen Namen hinein Kopiere sollt sich die UserForm2 öffnen, wo ich dann die Farbe (Label 1 -5) anklicken soll.
Und diese Hintergrundfarbe soll dann in der Textbox Übernommen werden.
UserForm1:
Sub TextBox6_Change()
If TextBox6.Text = "" Then
TextBox6.BackColor = &H80000000
Else
UserForm2.Show
TextBox6.BackColor = ?
End If
End Sub UserForm2:
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub Label1_Click()
? Farbe: H0080FFFF
End Sub
Private Sub Label2_Click()
? Farbe: H00C000C0
End
End Sub
Danke für eure Hilfe
Gruß
Anzeige