Button Farbe ändern

Forumthread: Button Farbe ändern

Button Farbe ändern

28.11.2018 12:27:30

Gunter

Hallo Zusammen
In einer Tabelle habe ich einen Button der mit dem Click Event eine Userform öffnet. Mit dem Click wird die Farbe des Button geändert. Wenn man nochmals auf den Button klickt schliesst die UF und der Button wechselt wiederum die Farbe. Wenn nun aber der User via dem Schliessen Kreuz die UF schliesst behält der Button die Farbe. Nun möchte ich also gern das der Button auch die Farbe wechselt, wenn via dem Schliessen Kreuz die UF geschlossen wurde.
Geschlossen wird sie so:

Private Sub UserForm_Terminate()
Worksheets("Serial-Details").Cells(2, 8).Value = 1
CommandButton1.BackColor = &H8000000F
End Sub

Wie muss denn der Code lauten um den Button in der Tabelle farblich zu ändern?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Button Farbe ändern

28.11.2018 12:36:23

Gunter

AW: Button Farbe ändern

28.11.2018 12:36:23

Gunter

Habs gefunden

Private Sub UserForm_Terminate()
Worksheets("Serial-Details").Cells(2, 8).Value = 1
Worksheets("Serial-Details").CommandButton1.BackColor = &H8000000F
End Sub

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne deine Excel-Datei.
Füge einen Button hinzu:
- Gehe zu Entwicklertools > Einfügen > Schaltfläche (Formsteuerung).

Füge den folgenden VBA-Code ein, um die Farbe der Schaltfläche zu ändern:

Private Sub CommandButton1_Click()
   If CommandButton1.BackColor = &H8000000F Then
       CommandButton1.BackColor = &H00FF00 ' Ändert die Farbe zu Grün
   Else
       CommandButton1.BackColor = &H8000000F ' Ändert die Farbe zu Blau
   End If
End Sub

Um die Farbe beim Schließen der Userform zu ändern, füge diesen Code zur Userform hinzu:

Private Sub UserForm_Terminate()
   Worksheets("Serial-Details").CommandButton1.BackColor = &H8000000F ' Setzt die Farbe zurück
End Sub

Teste die Funktionalität:
- Klicke auf den Button und schließe die Userform, um die Änderungen zu sehen.

Häufige Fehler und Lösungen

Fehler: Die Schaltfläche ändert die Farbe nicht.
- Lösung: Stelle sicher, dass der Name der Schaltfläche im VBA-Code korrekt ist. In diesem Fall sollte es CommandButton1 sein.
Fehler: Der Code wird nicht ausgeführt.
- Lösung: Überprüfe, ob die Makros aktiviert sind. Gehe zu Datei > Optionen > Trust Center und aktiviere die Makros.

Alternative Methoden

Eine andere Möglichkeit, die Farbe eines Buttons in Excel zu ändern, ist die Verwendung von HTML-ähnlichen Methoden. Dies ist jedoch in Excel nicht direkt anwendbar. Du kannst jedoch ähnliche Prinzipien in der Webanwendung verwenden, wo das html button farbe ändern mittels CSS einfacher ist.

Praktische Beispiele

Farbe ändern bei Klick:

Private Sub CommandButton1_Click()
   CommandButton1.BackColor = IIf(CommandButton1.BackColor = &H8000000F, &H00FF00, &H8000000F)
End Sub

Farbe zurücksetzen bei Schließen der Userform:

Private Sub UserForm_Terminate()
   CommandButton1.BackColor = &H8000000F ' Setzt die Buttonfarbe zurück
End Sub

Tipps für Profis

Verwende RGB-Farben: Anstatt die Hexadezimalwerte zu nutzen, kannst du auch die RGB-Funktion verwenden:
```
CommandButton1.BackColor = RGB(255, 0, 0) ' Rot
```
Farbe bei Ereignissen ändern: Du kannst die excel schaltfläche farbe ändern bei klick anpassen, indem du weitere Ereignisse hinzufügst, wie MouseOver oder Focus.

FAQ: Häufige Fragen

1. Wie ändere ich die Farbe eines Buttons in Excel VBA? Du kannst die Farbe eines Buttons mit der BackColor-Eigenschaft im VBA-Code ändern.

2. Kann ich die Farbe eines Buttons basierend auf einer Bedingung ändern? Ja, du kannst die If...Then-Anweisung verwenden, um die Farbe basierend auf bestimmten Bedingungen zu ändern.

3. Ist die Verwendung von Makros notwendig? Ja, um die Farbe einer Schaltfläche dynamisch zu ändern, benötigst du VBA-Makros.

4. Welche Excel-Version benötige ich für diese Funktionen? Die hier beschriebenen Funktionen sind in Excel 2007 und neueren Versionen verfügbar.

Beliebteste Forumthreads (12 Monate)