Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1640to1644
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
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButton wechselweise einfaerben

CommandButton wechselweise einfaerben
06.09.2018 15:30:46
Torsten
Hallo zusammen,
mit folgendem Code wird der geklickte Button rot gefaerbt (damit user weiss, was er zuletzt geklickt hat). Wenn dann ein anderer Button geklickt wird, wird dieser rot und der vorherige bekommt die urspruengliche graue Farbe zurueck. Hier Beispiel fuer Button10. Die Buttons sind ActiveX. 

Private Sub CommandButton10_Click()
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Tracker").CommandButton10.BackColor = RGB(255, 0, 0)
ThisWorkbook.Sheets("Tracker").CommandButton8.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton9.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton7.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton11.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton12.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton13.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton14.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton15.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton19.BackColor = RGB(220, 220, 220)
ThisWorkbook.Sheets("Tracker").CommandButton20.BackColor = RGB(220, 220, 220)
...und weiterer Code
Meine Frage. Gibt es eine elegantere Loesung hierfuer, da, wenn es noch mehr Buttons gibt, wird die Schreibarbeit im Code unendlich.
Ich muss das jetzt fuer ein anderes Tool machen, in dem bereits 43 Buttons existieren.
Dachte vielleicht daran, den aktivierten Button auszulesen und demnach zu handeln.
Bin fuer jede Hilfe dankbar.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton wechselweise einfaerben
06.09.2018 15:57:29
Nepumuk
Hallo Torsten,
teste mal:
Private Sub CommandButton10_Click()
    Dim objOleObject As OLEObject
    For Each objOleObject In OLEObjects
        If TypeOf objOleObject.Object Is MSForms.CommandButton Then _
            objOleObject.Object.BackColor = RGB(220, 220, 220)
    Next
    CommandButton10.BackColor = vbRed
End Sub


Gruß
Nepumuk
Anzeige
AW: CommandButton wechselweise einfaerben
06.09.2018 16:03:18
Rudi
Hallo, 
Sub farbe(DerButton As Object)
Dim ctl As OLEObject
For Each ctl In ActiveSheet.OLEObjects
If ctl.progID = "Forms.CommandButton.1" Then
If ctl.Name = DerButton.Name Then
ctl.Object.BackColor = RGB(255, 0, 0)
Else
ctl.Object.BackColor = RGB(220, 220, 220)
End If
End If
Next ctl
End Sub

Aufruf mit 
Private Sub CommandButton1_Click()
Call farbe(CommandButton1)
End Sub
Private Sub CommandButton2_Click()
Call farbe(CommandButton2)
End Sub
Private Sub CommandButton3_Click()
Call farbe(CommandButton3)
End Sub
Private Sub CommandButton4_Click()
Call farbe(CommandButton4)
End Sub
'etc

Gruß
Rudi
Anzeige
AW: CommandButton wechselweise einfaerben
06.09.2018 16:24:22
Torsten
Vielen Dank ihr zwei,
beides funktioniert bestens. Werde aber Rudi's Variante nehmen, da hier nur eine Zeile per Button einzufuegen ist und der Rest im Modul lauft.
Schoenen Abend

300 Forumthreads zu ähnlichen Themen

Command-Button in Diagramm
Wolfgang

Hallo liebe Excel-Experten,
es wäre nett, wenn Ihr mir helfen könntet.
Ich habe verschiedene (mehr als 50) Diagramme erzeugt, dabei gibt es übergeordnete Diagramme und Diagramme, die Details betreffen.
Natürlich kann sich der Betrachter über die Diagramm-Namen durchsuchen. Ich möcht...
25.08.2008 23:52:00
Thread-ID: 1004633
5 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
per Makro CommandButtons mit individuellem Code
Gerry83

Hallo zusammen
Ein externes Programm führt mit unterschiedlichen Parametern 20736 Berechnungen durch, die Ergebnisse werden in jeweils eine *.txt Datei geschrieben. Zusätzlich erhalte ich ein Flag, ob die Berechnung erfolgreich war oder nicht.
Ein Makro soll mir nun 20736 CommandButtons...
23.11.2008 16:29:00
Thread-ID: 1027102
6 Beiträge
Anzeige
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Wert eines CommandButton in TextBox schreiben
Frank

Hallo Zusammen und 'nen schönen Sonntagabend!!!
Bin überfordert! Ich habe in einer UF eine TextBox6. Dann gibt es eine zweite UF, auf der befinden sich mehrere CommandButton mit Werten, z.B. 50,00, 100,00 usw. Nun möchte ich das bei Klick auf solch Button der Wert in die TextBox6 der ersten...
01.03.2009 19:30:52
Thread-ID: 1055312
4 Beiträge
sämtliche Commandbutton ausblenden bei Bedingung
Wolfgang

Hallo Excelianer
Wie kann ich erreichen, daß wenn eine Bedingung nicht erreicht ist, daß beim Aufruf der Userform1 sämtliche darin enthaltenen Commandbuttons ausgeblendet sind.
Gruß
Wolfgang
14.03.2009 18:24:52
Thread-ID: 1060212
4 Beiträge
CommandButton -> Caption in Programm verwenden
Florian

Hallo,
ich habe nach langem mal wieder ein Problem auf dem Tisch liegen.
Ich habe eine Excel-Datei erstellt und 32 CommandButton's angelegt.
Klassisch lege ich jetzt für jeden CommandButton folgenden Private Sub an: Private Sub CommandButton01_Click() Workbooks.Open Filename:=Ar...
24.03.2009 09:55:53
Thread-ID: 1063177
7 Beiträge
CommandButton Caption und Hintergrundfarbe ändern
MO

Hi an alle,
kann mir jemand bitte sagen, wie ich einen CommandButton auf Click gelb einfärbe und die Captionfarbe auf grau umgestellt wird und bei einem nächsten Click zurück auf grau mit Captionfarbe gelb, so dass dieses Spiel im Wechsel funktioniert?
Viele Grüße und Dankeschön für je...
06.04.2009 15:57:35
Thread-ID: 1067137
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
4
2
1
5
6
4
3
3
6
5
4
4
2
4
7
4
4
9
9
3
4
2
1
1
2