25.03.2021, 11:44
Hallo allerseits,
ich wollte das die Farbcodes aus einem Makro genommen werden
und dann bei Knopfdruck wird der jeweilige Farbcode genommen und als Hintergrundfarbe
eines Labels verwendet werden soll.
Modul:
Userform:
Danke an jeden der Hilft!
MfG
Herbert
ich wollte das die Farbcodes aus einem Makro genommen werden
und dann bei Knopfdruck wird der jeweilige Farbcode genommen und als Hintergrundfarbe
eines Labels verwendet werden soll.
Modul:
Code:
Option Explicit
Dim Weiß As Variant, Schwarz As Variant, Blau As Variant, Lila As Variant, Pink As Variant, Rot As Variant, Orange As Variant, Gelb As Variant, Grün As Variant, Cyan As Variant
Sub Hintergrundfarbe_Makro()
'*********************************************************
' Hintergrundfarbe ändern
'*********************************************************
Weiß = &HFFFFFF
Schwarz = &H0&
Blau = &HFF0000
Lila = &H800080
Pink = &HFF00FF
Rot = &HFF&
Orange = &H80FF&
Gelb = &HFFFF&
Grün = &HFF00&
Cyan = &HFFFF00
'Keine = x1None
MsgBox "Klappt!"
End Sub
Userform:
Code:
Option Explicit
Private Sub BlauBtn_Click()
'*********************************************************
' Blaue Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Blau As Variant
Example_lbl.BackColor = Blau
End Sub
Private Sub CyanBtn_Click()
'*********************************************************
' Cyan Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Cyan As Variant
Example_lbl.BackColor = Cyan
End Sub
Private Sub GelbBtn_Click()
'*********************************************************
' Gelbe Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Gelb As Variant
Example_lbl.BackColor = Gelb
End Sub
Private Sub GrünBtn_Click()
'*********************************************************
' Grüne Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Grüne As Variant
Example_lbl.BackColor = Grüne
End Sub
Private Sub LilaBtn_Click()
'*********************************************************
' Lila Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Lila As Variant
Example_lbl.BackColor = Lila
End Sub
Private Sub OrangeBtn_Click()
'*********************************************************
' Orange Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Orange As Variant
Example_lbl.BackColor = Orange
End Sub
Private Sub PinkBtn_Click()
'*********************************************************
' Pinke Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Pink As Variant
Example_lbl.BackColor = Pink
End Sub
Private Sub RotBtn_Click()
'*********************************************************
' Rote Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Rot As Variant
Example_lbl.BackColor = Rot
End Sub
Private Sub SchwarzBtn_Click()
'*********************************************************
' Schwarze Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Schwarz As Variant
Example_lbl.BackColor = Schwarz
End Sub
Private Sub WeißBtn_Click()
'*********************************************************
' Weiße Farbe
'*********************************************************
Call Hintergrundfarbe_Makro
Dim Weiß As Variant
Example_lbl.BackColor = Weiß
End Sub
Danke an jeden der Hilft!
MfG
Herbert