Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
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
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ToggleButton Hintergrundfarbe ändern

ToggleButton Hintergrundfarbe ändern
12.08.2019 13:26:39
Emre
Hallo Leute,
ich habe eine große Anzahl an ToggleButtons in meiner Userform.
Da ich nicht bei jeder Änderung den Befehl zur Farbänderung geben will lautet meine Frage:
Kann ich die Hintergrundfarbe meiner ToggleButtons grundsätzlich ändern? Heißt wenn es True ist immer grün wenn false immer rot?
Danke im Voraus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ToggleButton Hintergrundfarbe ändern
12.08.2019 13:56:28
Werni
Hallo
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.BackColor = RGB(0, 255, 0)
Else
ToggleButton1.BackColor = RGB(255, 0, 0)
End If
End Sub
Gruss Werni
AW: ToggleButton Hintergrundfarbe ändern
12.08.2019 14:18:14
Emre
Hallo Werni,
danke für deinen Input. Hier müsste ich diesen Befehl für jeden Button erstellen, sprich 37x - das will ich eigentlich vermeiden.
Ich würde wollen, das die Buttons grundsätzlich z.B. grün sind wenn True.
Viele Grüße
Emre
AW: ToggleButton Hintergrundfarbe ändern
12.08.2019 14:37:26
Daniel
Hi
das musst du leider für jeden Button einzeln programmieren.
für unterschiedliche Farben gibt es keine vordefinierte Einstellung oder Eigenschaft.
du kannst den Code aber etwas vereinfachen, so dass in jedem Click-Event der selbe Code steht, den du einfach mit Copy-Paste ohne Änderung übernehmen kannst 
ActiveControl.BackColor = IIF(ActiveControl.Value, vbRed, vbGreen)
wenn du nicht für jeden Button einen eigenen Button erstellen willst, solltest du dich mal mit "Klassenprogrammierung" auseinandersetzen.
Damit kannst du in solchen Fällen mit einem einzigen Makro auskommen, welches du den Buttons als Klick-Event zuweist.
Wie das genau geht, müsstest du mal selber suchen, es sollte genügen Beispiele geben, ich kenne mich damit aber nicht aus.
allerdings, dass spezielle "Shading" der angeklickten Buttons bekommst du trotzdem nicht weg, das ist den ToggleButtons fest einprogrammiert.
Gruß Daniel
Anzeige
AW: ToggleButton Hintergrundfarbe ändern
13.08.2019 11:40:35
Werni
Hallo Emre
Wenn die ToggelButton's eine Calclation hervor rufen, dann 
Private Sub Worksheet_Calculate()
AlleTB_kontrollieren
End Sub
Und in ein normales Modul 
Sub AlleTB_kontrollieren()
Dim TBs As Object
Application.ScreenUpdating = False
For Each TBs In Tabelle1.OLEObjects
If InStr(1, TBs.Name, "Togg") > 0 Then
With TBs.Name
If ActiveSheet.OLEObjects(TBs.Name).Object.Value = False Then ActiveSheet. _
OLEObjects(TBs.Name).Object.BackColor = RGB(255, 0, 0)
If ActiveSheet.OLEObjects(TBs.Name).Object.Value = True Then ActiveSheet. _
OLEObjects(TBs.Name).Object.BackColor = RGB(0, 255, 0)
End With
End If
Next
Application.ScreenUpdating = True
End Sub
Gruss Werni
Anzeige

15 Forumthreads zu ähnlichen Themen

Schriftfarbe in ComboBox ändern bei Anklicken
René

Hallo liebe Excelgemeinde,
kann man erreichen das in einer ComboBox die Schriftfarbe beim ANklicken geändert wird? Die SChriftfarbe der ComboBox ist sonst immer auf Weiß eingestellt, soll aber beim Anklicken der Box schwarz werden.
MfG René
24.03.2011 09:28:35
Thread-ID: 1207305
3 Beiträge
Anzeige
Button in Abhängigkeit von Zellwert Farbe ändern
Zellwert

Guten Morgen zusammen,
ich bin auf der Suche nach einer Möglichkeit, dass ein CommandButton in Abhängigkeit eines Zellwertes seine Hintergrundfarbe ändert.
Der CommandButton wählt sonst aber noch ein Sheet aus.
Kennt/wisst ihr eine Möglichkeit, diese beiden "Funktionen" zu kombinier...
12.11.2012 10:16:20
Thread-ID: 1286343
6 Beiträge
Markierte Zellen Farben ändern bei Rechtsklick
Burghard

Hallo,
das nachfolgende Makro funktioniert, allerdings nur für die aktive Zelle. Läßt sich das Makro umschreiben, so dass die Farbänderungen für alle markierten Zellen gelten?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _ Boolean) App...
29.08.2013 21:07:20
Thread-ID: 1328873
6 Beiträge
Anzeige
Mit Togglebutton Zellen färben
Mario

Hallo liebe Excel-Profis,
ich verzweifle gerade mal wieder in der Arbeit. Ich möchte eine Zelle per Togglebutton bei aktivierung von ROSA auf ORANGE färben. Und andersrum, wenn ich den Togglebutton wieder deaktiviere, also auf Stellung 2 Schalte, soll die Zelle wieder die Ursprüngliche Farb...
22.02.2016 13:15:31
Thread-ID: 1477216
5 Beiträge
Togglebutton Zustand auf Ribbon mit vba ändern
Klaus

Hallo,
Stehe wohl etwas auf dem Schlauch. Versuche seit einigen Stunden zu verstehen, wie ich den Zustand eines Togglebutton auf meinem Ribbon per vba code ändern kann, ohne den Button mit der Maus zu klicken.
Der Togglebutton blendet eine Userform ein bzw. aus. Das funktioniert soweit...
20.03.2018 21:11:27
Thread-ID: 1615368
4 Beiträge
Button Farbe ändern
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 Schliesse...
28.11.2018 12:27:30
Thread-ID: 1660048
2 Beiträge
Command Button Farbe ändern
Alex

Hallo,
ist es möglich dass man die Farbe des Comman Button durch eine Abfrage wechseln lässt ?
Wenn in Spalte A ein Datum dieser Woche wäre sollte der Button Rot werden.
Danke für die Hilfe :)
12.03.2019 08:52:04
Thread-ID: 1680718
13 Beiträge
Farbe in einer ToggleButton bei druck andern
Sven
hi,
ich möchte die Farbe eines ToggleButton bei druck ändern.
Das hier brachte keinen Erfolg.

Private Sub ToggleButton1sip136c_Click() If ToggleButton1sip136c Then [c30] = "sip-136_C" BackColor = RGB(0, 255, 0) Else [c30] = "" BackColor = RGB(255, 255, 255) End If End Sub

...
15.01.2004 11:39:38
Thread-ID: 364307
8 Beiträge
Anzeige

Links zu Excel-Dialogen

ToggleButton UserForm

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
2
5
5
5
3
4
3
1
12
7
3
12
16
11
15