Clever-Excel-Forum

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:

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

Hallo Herbert,

Option Explicit

Public 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()
...

Option Explicit

Private Sub BlauBtn_Click()

'*********************************************************
' Blaue Farbe
'*********************************************************

Call Hintergrundfarbe_Makro
Example_lbl.BackColor = Blau

End Sub

Gruß Uwe

Herbert der Erste

Kuwer