Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Farbe einer Form per Klick ändern

Farbe einer Form per Klick ändern
10.08.2017 11:25:04
Mfnk
Hallo,
ich benötige einen VBA-Code, der Folgendes bewirken soll:
Die Farbe von Formen soll per Klick abgeändert werden:
Ausgangsfarbe orange
1. Klick: grün
2.Klick: gelb
3.Klick: rot
4.Klick wieder Organe (Ausgangsfarbe) und dann das ganz von vorne.
Vielen Dank für Hilfe!!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbe einer Form per Klick ändern
10.08.2017 12:13:34
Daniel
Hi
schreibe diesen Code in ein allgemeines Modul und weise dann der Form das Makro über das Kontextmenü zu. Das Marko erkennt, von welcher Form es aufgerufen wurde, dh du kannst das selbe Makro für alle betroffenen Formen mit gleicher Farbfolge verwenden.
Sub Umfärben()
Dim Farbe(0 To 3)
Farbe(0) = RGB(255, 192, 0)
Farbe(1) = vbGreen
Farbe(2) = vbYellow
Farbe(3) = vbRed
With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
Select Case .RGB
Case Farbe(0): .RGB = Farbe(1)
Case Farbe(1): .RGB = Farbe(2)
Case Farbe(2): .RGB = Farbe(3)
Case Farbe(3): .RGB = Farbe(0)
Case Else: .RGB = Farbe(0)
End Select
End With
End Sub
Erstellt und getestet auf Excel 2013.
ich gehe mal davon aus, dass die Excelversion hier durchaus von Relevanz sein kann.
Gruß Daniel
Anzeige
Nee, daran hat sich nichts geändert, ...
10.08.2017 12:58:05
Luc:-?
…Daniel,
dein Pgm würde auch unter Xl9/2k fktionieren.
🙈 🙉 🙊 🐵 Gruß, Luc :-?
Besser informiert mit …
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Farbe einer Form per Klick ändern


Schritt-für-Schritt-Anleitung

Um die Farbe einer Form in Excel per Klick zu ändern, kannst du den folgenden VBA-Code verwenden. Dieser Code ändert die Farbe einer Form in der Reihenfolge orange → grün → gelb → rot und dann zurück zu orange.

  1. Öffne Excel und wechsle zum gewünschten Arbeitsblatt.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Kopiere und füge den folgenden Code in das Modul ein:

    Sub Umfärben()
       Dim Farbe(0 To 3)
       Farbe(0) = RGB(255, 192, 0) ' Orange
       Farbe(1) = vbGreen          ' Grün
       Farbe(2) = vbYellow         ' Gelb
       Farbe(3) = vbRed            ' Rot
       With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
           Select Case .RGB
               Case Farbe(0): .RGB = Farbe(1)
               Case Farbe(1): .RGB = Farbe(2)
               Case Farbe(2): .RGB = Farbe(3)
               Case Farbe(3): .RGB = Farbe(0)
               Case Else: .RGB = Farbe(0)
           End Select
       End With
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu deinem Excel-Blatt.

  6. Rechtsklicke auf die gewünschte Form, wähle Makro zuweisen und wähle das Makro Umfärben aus.

  7. Klicke auf die Form, um die Farben nacheinander zu ändern.


Häufige Fehler und Lösungen

  • Excel Zelle Farbe lässt sich nicht ändern: Überprüfe, ob die Form korrekt ausgewählt ist und das Makro richtig zugewiesen wurde.
  • Farbe und Form nicht sichtbar: Stelle sicher, dass die Form nicht hinter anderen Objekten verborgen ist oder dass die Füllfarbe nicht auf „Keine Füllung“ gesetzt ist.
  • Makro funktioniert nicht: Vergewissere dich, dass deine Excel-Version (z.B. Excel 2013 oder höher) das Ausführen von VBA-Makros unterstützt.

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du die Farben manuell ändern:

  1. Klicke auf die Form, um sie auszuwählen.
  2. Gehe zum Tab Format.
  3. Klicke auf Formenfüllung, um die Farbe zu ändern.

Diese Methode ist jedoch weniger dynamisch als die VBA-Lösung.


Praktische Beispiele

Ein Beispiel für den Einsatz des VBA-Codes könnte eine Präsentation sein, in der du mit verschiedenen Farben spielst, um die Aufmerksamkeit auf bestimmte Punkte zu lenken. Du könntest auch eine Schaltfläche erstellen, die die Hintergrundfarbe ändert, um visuelle Effekte zu erzeugen.


Tipps für Profis

  • Wenn du mehrere Formen hast und die gleiche Farbänderung anwenden möchtest, kannst du den VBA-Code in ein allgemeines Modul einfügen und ihn auf alle gewünschten Formen anwenden.
  • Experimentiere mit verschiedenen RGB-Werten, um deine eigenen Farbpaletten zu erstellen.
  • Du kannst den Code erweitern, um auch die Linienfarbe oder die Rahmenfarbe der Formen zu ändern, indem du ActiveSheet.Shapes(Application.Caller).Line.ForeColor entsprechend anpasst.

FAQ: Häufige Fragen

1. Kann ich den VBA-Code auch in älteren Excel-Versionen verwenden?
Ja, der Code sollte auch in älteren Versionen wie Excel 2000 oder 2003 funktionieren.

2. Wie ändere ich die Farbfolge im VBA-Code?
Ändere einfach die Reihenfolge der RGB-Werte im Array Farbe, um die Farben nach deinen Wünschen anzupassen.

3. Was tun, wenn ich den VBA-Editor nicht öffnen kann?
Stelle sicher, dass in den Excel-Optionen das Ausführen von Makros aktiviert ist und dass du die nötigen Berechtigungen hast.

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