Makro Button Farbe ändern

Forumthread: Makro Button Farbe ändern

13.08.2020 10:58:17

Norbert

Hallo Spezialisten
für diverse Makros habe ich für den Makrostart aus Formen ein blau gefülltes Rechteck verwendet.
Gibt es eine Möglichkeit, dass diese Form nach dem auslösen des Makros die Farbe von blau auf Bsp. grün wechselt?
(ähnlich wie bei einem Rolloverbutton auf einer Homepage)
Danke für euren Vorschlag
Gruss Norbert

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro Button Farbe ändern

13.08.2020 11:09:27

Rudi
AW: Makro Button Farbe ändern

13.08.2020 11:26:19

Norbert

AW: Makro Button Farbe ändern

13.08.2020 11:09:27

Rudi

Hallo,
klar geht das.
z.B.

Sub Rechteck1_Klicken()
ActiveSheet.Shapes("Rechteck 1").DrawingObject.Interior.Color = RGB(255, 255, 0)
'weiterer Code
End Sub

Gruß
Rudi

AW: Makro Button Farbe ändern

13.08.2020 11:26:19

Norbert

Hallo Rudi
Perfekt
Gruss Norbert

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Farbe einer Schaltfläche in Excel über ein Makro zu ändern, befolge diese Schritte:

Öffne Excel und erstelle ein neues Arbeitsblatt oder öffne ein bestehendes.
Füge eine Form hinzu (z. B. ein Rechteck):
- Gehe zu Einfügen > Formen und wähle ein Rechteck aus.
Benenne die Form:
- Klicke mit der rechten Maustaste auf die Form und wähle Form formatieren.
- Unter Größe und Eigenschaften kannst du der Form einen Namen geben, z. B. "Rechteck 1".
Öffne den VBA-Editor:
- Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Erstelle ein neues Modul:
- Gehe zu Einfügen > Modul.

Füge den folgenden Code ein:

Sub Rechteck1_Klicken()
   ActiveSheet.Shapes("Rechteck 1").DrawingObject.Interior.Color = RGB(0, 255, 0)
   'weiterer Code
End Sub

Weise das Makro der Schaltfläche zu:
- Gehe zurück zu Excel, klicke mit der rechten Maustaste auf die Form und wähle Makro zuweisen.
- Wähle das eben erstellte Makro aus der Liste aus und bestätige.
Teste die Schaltfläche:
- Klicke auf die Form, um zu sehen, ob sich die Farbe ändert.

Häufige Fehler und Lösungen

Form wird nicht gefunden: Stelle sicher, dass der Name der Form genau übereinstimmt (z. B. "Rechteck 1").
Farbe ändert sich nicht: Überprüfe, ob das Makro korrekt zugewiesen wurde und ob der VBA-Code richtig eingegeben wurde.
Fehler beim Ausführen des Makros: Vergewissere dich, dass Makros in deinen Excel-Einstellungen aktiviert sind.

Alternative Methoden

Eine weitere Möglichkeit, die Farbe einer Schaltfläche zu ändern, ist die Verwendung von Excel-Formularsteuerelementen:

Füge ein Formularsteuerelement hinzu:
- Gehe zu Entwicklertools > Einfügen und wähle ein Button-Steuerelement.
Weise das Makro zu: Der Prozess ist ähnlich wie oben beschrieben.

Verwende den Code:

Sub Button1_Click()
   ActiveSheet.Shapes("Button 1").Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

Praktische Beispiele

Hier sind einige Beispiele für verschiedene Farben, die du verwenden kannst:

Blau zu Grün:

ActiveSheet.Shapes("Rechteck 1").DrawingObject.Interior.Color = RGB(0, 255, 0)

Rot zu Gelb:

ActiveSheet.Shapes("Rechteck 1").DrawingObject.Interior.Color = RGB(255, 255, 0)

Farbe ändern bei Klick: Du kannst auch mehrere Farben in einem Makro kombinieren, um die Schaltfläche bei jedem Klick abwechselnd zu ändern.

Tipps für Profis

Experimentiere mit verschiedenen RGB-Werten, um deine gewünschten Farben zu finden.
Nutze die Funktion If...Then, um die Farbe basierend auf bestimmten Bedingungen zu ändern.
Speichere deine Arbeitsmappe im .xlsm-Format, um sicherzustellen, dass deine Makros gespeichert werden.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe einer Schaltfläche zurücksetzen?
Verwende einen weiteren VBA-Befehl, um die Farbe auf die ursprüngliche zurückzusetzen.

2. Kann ich die Farbe einer Schaltfläche dynamisch ändern?
Ja, du kannst Bedingungen im VBA-Code einfügen, um die Farbe basierend auf Eingaben oder anderen Faktoren zu ändern.

Beliebteste Forumthreads (12 Monate)