Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform Label on click Farbe ändern

Forumthread: Userform Label on click Farbe ändern

Userform Label on click Farbe ändern
Matthias
Hallo,
kann man in einer Userform beim klick auf Label1 die Farbe ändern? Nach Möglichkeit in Blau damit is aussieht wie markiert? Möchte mir gerne ein Menü bauen
DANKE!
Gruß Matthias
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform Label on click Farbe ändern
15.09.2010 15:21:21
Nepumuk
Hallo,
einfach so:
Private Sub Label1_Click()
    Label1.BackColor = vbBlue
End Sub

Gruß
Nepumuk
Anzeige
AW: Userform Label on click Farbe ändern
15.09.2010 15:26:37
Matthias
Hallo Nepumuk,
würde ich da auch den HEX-Code einer Farbe unterbringen?
Gruß
Matthias
AW: Userform Label on click Farbe ändern
15.09.2010 15:49:01
Nepumuk
Hallo,
warum nicht? vbBlue ist ja auch nur eine Konstante welche den RGB-Wert von Blau (16.711.680) enthält. Ob dieser Wert nun Dezimal, Hexadezimal oder Oktal daher kommt ist dem Label völlig egal.
Das kannst du alles für Blau benutzen:
  • vbBlue

  • 16711680

  • &HFF0000

  • &O77600000

  • RGB(0, 0, 255)

  • Gruß
    Nepumuk
    Anzeige
    ;
    Anzeige
    Anzeige

    Infobox / Tutorial

    Userform Label on Click Farbe ändern in Excel


    Schritt-für-Schritt-Anleitung

    Um die Hintergrundfarbe eines Labels in einer Userform beim Klicken zu ändern, kannst Du folgenden VBA-Code verwenden:

    1. Öffne den Visual Basic for Applications (VBA) Editor in Excel (Alt + F11).

    2. Füge eine Userform hinzu.

    3. Füge ein Label (Label1) zur Userform hinzu.

    4. Doppelklicke auf das Label, um das Ereignis Label1_Click zu erstellen.

    5. Füge den folgenden Code ein:

      Private Sub Label1_Click()
         Label1.BackColor = vbBlue
      End Sub
    6. Schließe den VBA-Editor und führe die Userform aus. Klicke auf das Label, um die Farbe zu ändern.

    Falls Du eine andere Farbe verwenden möchtest, kannst Du den BackColor-Wert anpassen.


    Häufige Fehler und Lösungen

    • Fehler: Das Label ändert die Farbe nicht.

      • Lösung: Stelle sicher, dass der VBA-Code korrekt eingegeben wurde und das Label den richtigen Namen hat (Label1).
    • Fehler: Der Code wird nicht ausgeführt.

      • Lösung: Überprüfe, ob die Userform im Designmodus ist. Du musst die Userform ausführen, um das on click-Ereignis zu testen.

    Alternative Methoden

    Wenn Du den vba label backcolor nicht direkt im Click-Ereignis ändern möchtest, kannst Du auch eine zusätzliche Methode verwenden:

    1. Erstelle eine Subroutine, die die Farbe ändert:

      Sub ChangeLabelColor()
         Label1.BackColor = RGB(0, 255, 0) ' Ändert die Farbe auf Grün
      End Sub
    2. Rufe diese Subroutine im Click-Ereignis auf:

      Private Sub Label1_Click()
         ChangeLabelColor
      End Sub

    Praktische Beispiele

    Hier sind einige Beispiele, wie Du die BackColor-Eigenschaft weiter anpassen kannst:

    • Um ein Label in Rot zu färben:

      Private Sub Label1_Click()
         Label1.BackColor = RGB(255, 0, 0) ' Rot
      End Sub
    • Um eine Farbe mit einem HEX-Code zu verwenden:

      Private Sub Label1_Click()
         Label1.BackColor = &HFF0000 ' Rot in HEX
      End Sub

    Diese Variationen ermöglichen Dir eine höhere Flexibilität bei der Gestaltung Deiner Userform.


    Tipps für Profis

    • Nutze die RGB-Funktion, um präzisere Farben zu erhalten. Damit kannst Du jeden Farbton genau definieren.
    • Experimentiere mit verschiedenen Farben und kombiniere sie, um interaktive Menüs zu erstellen.
    • Achte darauf, dass die Farbänderungen für den Benutzer intuitiv sind und nicht übermäßig ablenken.

    FAQ: Häufige Fragen

    1. Kann ich die Farbe auch mit einem HEX-Code angeben?
    Ja, Du kannst den HEX-Code verwenden, indem Du die BackColor-Eigenschaft entsprechend anpasst, wie in den Beispielen gezeigt.

    2. Funktioniert dieser VBA-Code auch in Excel 365?
    Ja, dieser Code sollte in allen aktuellen Excel-Versionen, einschließlich Excel 365, funktionieren.

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige