Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!!

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 …

48 Forumthreads zu ähnlichen Themen

in Tabellenblättern suchen und Schriftfarbe ändern
ad

Hallo zusammen,
ich möchte in mehreren Tabellenblättern (Liste ist im Blatt Namen c3:c.. aufgeführt) bestimmte Buchstaben suchen und per VBA-Makro Schriftfarbe ändern . Bedingte Formatierung ist schon ausgereizt.
Wer kann mir weiterhelfen?
Gruss ad
13.08.2009 22:11:33
Thread-ID: 1095796
11 Beiträge
Anzeige
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Formelfrage: Zeilenumbruch und rote Farbe?
Jenick

Hallo zusammen,
ich habe folgende Formel:
=WENN(G74>0;"Kapazität i.O.";"Es fehlen " & RUNDEN(((-1)*G74/G71);0) & " Stück.") Dabei möchte ich gerne den Teil "Es fehlen XXX Stück" mit einem automatischen Zeilenumbruch versehen, sobald die Wörter für die Spaltenbreite nicht au...
26.04.2010 18:30:16
Thread-ID: 1153901
5 Beiträge
Anzeige
Formen und ihre Farben
Oliver

Hallo Community,
heute habe ich mal eine Frage:
In einem Excel-Sheet habe ich 4 Kreise. Die Füllfarben sind bei jedem einer Ampel entsprechend. Nun möchte ich folgendes:
Die 4. Ampel soll jeweils automatisch die Farbe der Ampel bekommen, die bei den anderen drei als "schlechteste" (...
23.11.2010 16:48:56
Thread-ID: 1188356
12 Beiträge
Wenn Zelle Inhalt, dann Reiterfarbe ändern
MIAAA

Hallo ihr Lieben Excel-Könner,
bitte um Hilfe bei folgendem Promlem mit englischem Office:
Wenn in Zelle ein beliebiger Name (=Text) eingetragen wird, soll sich der Reiter (Sheetregister) im unteren Bildrand z.b. rot einfärben. Hat jemand die Lösung?
IF(B4=...
Merci
14.04.2011 16:31:15
Thread-ID: 1210443
15 Beiträge
wordart textfarbe ändern, eigenschaften zuweisen
detlef

Hallo Profis;
mit dem untenstehenden Makro erstelle ich ein Wordarttext und passe den etwas an - funktioniert auch gut; jetzt mein Problem: wie kann ich die Textfarbe ändern (per vba) manuell funktionierts und wie kann ich noch Eigenschaften zuweisen. Ich möchte "Ansichtsverhältnis sperren"...
27.09.2012 21:12:17
Thread-ID: 1279793
9 Beiträge
Zellenverbinden und Zellenfarbe ändern
Christian

Hallo alle zusammen,
ich hänge euch eine Bsp.-Datei an, Von Zeile 3 an wurde eine weitere Tabelle eingefügt. Wie bekomme ich es hin, dass die Spaltenbezeichnungen der Zeile 6 entsprechen, also z.B. die jetzige Spalte 3 und Spalte 4 dieselbe Spaltenbezeichnung haben, sodass ich z.B. nach ein...
02.10.2012 11:52:51
Thread-ID: 1280215
5 Beiträge
Hintergrundfarbe in Tabellen und Userforms
Martin

Hallo,habe feststellen müssen, dass die angebotenen Hintergrundfarben, die man in Userforms verwenden kann, nicht unbedingt mit denen übereinstimmen, die für Tabellen verfügbar sind. Kann das sein, gibt es eine Trick, um mehr Farben zu bekommen?Gruss,
Martin
19.06.2002 14:35:05
Thread-ID: 129908
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
22
4
4
5
11
14
8
4
3
4
5
2
5
5
9
5
5
4
8
4
6
13
3
3