Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche wenn aktiv farbe ändern

Schaltfläche wenn aktiv farbe ändern
23.01.2013 07:35:36
Noemi
Hallo
Ich habe mehrere Tabellenblätter und die erste Seite ist ein Hauptmenü wo ich zwischen den Tabellenblättern navigieren kan, Nun habe ich zu jedem Tabellenblatt eine Schaltfläche für einblenden und eine für ausblenden des Tabellenblattes.
Jetzt möchte ich gerne ein Makro dazuschreiben, welches wenn es eingeblendet ist die schaltfläche grün einfärbt und wenn es ausgeblendet ist die schaltfläche rot einfärbt.
Sub Ausblenden_1()
' Ausblenden_1 Makro
Sheets("Auftragsdaten").Visible = False
End Sub

Sub Einblenden_1()
' Einblenden_1 Makro
Sheets("Auftragsdaten").Visible = True
End Sub

Dass sind meine 2 Makros die ich habe.
Gruss Noemi

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche wenn aktiv farbe ändern
23.01.2013 08:07:30
Marc
Moin!
Die Färbung kannst du mE nicht ändern. Nur wenn du eine eigene Maske dazu machst.
Ich hab das über eine einzelne Schalfläche gelöst, in der ich den Text jeweis geändernt hab.
Im Makro wurde dann Textabhängig gesteuert, ob ein-oder ausgeblendet wurde.
Sub Ein_ausblenden_1()
if activesheet.shape(xyz).text ="einblenden" then
Sheets("Auftragsdaten").Visible = True
activesheet.shape(xyz).text ="ausblenden"
else
Sheets("Auftragsdaten").Visible = false
activesheet.shape(xyz).text ="einblenden"
End Sub

Das Steuerelement muß noch korrekt angesprochen werden
Gruß, MCO

Anzeige
AW: Schaltfläche wenn aktiv farbe ändern
23.01.2013 08:34:40
Noemi
Was meinst du mit korrekt angesprochen werden? Bei mir funktioniert es nicht wrklich. und wa bedeutet:
shape(xyz)
gruss Noemi

AW: Schaltfläche wenn aktiv farbe ändern
23.01.2013 09:31:48
Daniel
Hi
nimm den ToggleButton aus den ActiveX-Steuerelementen.
da wird der Schaltzustand automatisch angezeigt, ohne das du das Programmieren musst.
Ausserdem wird der Code zum Ein und ausblenden kürzer 
Private Sub ToggleButton1_Click()
Sheets("Auftragsdaten").visible =Togglebutton1.value
End Sub
Gruss Daniel

AW: Schaltfläche wenn aktiv farbe ändern
23.01.2013 09:42:56
Noemi
Super Idee Danke :-)
Es funktionier auch. Aber wäre es möglich dies noch zu erweitern. Sodass der Button rot ist, wenn Das Tabellenblatt ausgeblendet ist und grün wenn es eingeblendet ist :-)?
Gruss
Noemi

Anzeige
AW: Schaltfläche wenn aktiv farbe ändern
23.01.2013 10:02:13
Daniel
Hi
klar
Togglebutton1.backcolor = IIf(Togglebutton1.value, vbGreen, vbRed)
die Startfärbung vor dem ersten Klick musst du in den Eigenschaften Einstellen.
Gruss Daniel

AW: Schaltfläche wenn aktiv farbe ändern
23.01.2013 10:10:51
Daniel
Hi
klar
Togglebutton1.backcolor = IIf(Togglebutton1.value, vbGreen, vbRed)
die Startfärbung vor dem ersten Klick musst du in den Eigenschaften Einstellen.
Gruss Daniel

AW: Schaltfläche wenn aktiv farbe ändern
23.01.2013 11:55:49
Noemi
Cool genau so habe ich es mir vorgestellt :-)
Vielen Dank hat super geklappt :-D
Gruss
Noemi

AW: mit Farbe dann Einfacher Commandbutton
23.01.2013 10:51:56
Daniel
Hi
wenn der der Togglebutton nicht optisch nicht ausreicht und du unbedingt die Rot/Grün-Färbung haben willst, (beachte die Kollegen mit Rot-Grün-Schwäche), dann ist ein einfacher Commandbutton zum Umschalten besser geeignet:
Private Sub CommandButton1_Click()
With Sheets("Auftragsdaten")
.Visible = Not .Visible
CommandButton1.BackColor = IIf(.Visible, vbGreen, vbRed)
End With
End Sub
damit auch beim Öffnen der Datei die Farben passen, solltest du im Workbook-Open-Event der Mappe folgenden Code einfügen: 
Sheets("Tabelle1").Commandbutton1.BackColor = IIf(Sheets("Auftragsdaten").Visible, vbGrenn, vbRed)
gruß Daniel
Anzeige

38 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
Schriftfarbe von Schaltfläche per VBA
Schaltfläche

Guten Morgen zusammen,
ich habe in meiner Tabelle 26 Schaltflächen (A - Z) erstellt, die das Sortieren der Tabelle nach eben dem jeweiligen Buchstaben übernehmen sollen. Hierbei bin ich jetzt auf folgendes Problem gestossen:
- wie kann ich den Inhalt der gedrückten Schaltfläche abfragen...
07.01.2011 10:07:41
Thread-ID: 1194363
12 Beiträge
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
Neue Datei mit CommandButton öffnen
Peter

Hallo Leute,
ich habe ein Problem. Wenn ich in meiner Excel Datei auf einen CommandButton klicke, sollte eine andere Excel-Datei geöffnet werden.
Dies funktioniert auch ohne Probleme. Hier der Code:
Private Sub CommandButton1_Click() Dim objExcel As Object Set objExcel = CreateObje...
08.03.2012 19:36:46
Thread-ID: 1254260
7 Beiträge
Toggle Button - Verhalten ändern (Farbe)
Arthur

Hallo zusammen
Ich habe mit meinen spärlichen VBA Kenntnissen einen Toggle Button gebastelt:
https://www.herber.de/bbs/user/81693.xlsm
Nur sieht der im grünen Zustand komisch aus (keine satte Farbe und Schrift kaum lesbar).
Kann man das Aussehen nicht wie im roten Zustand einst...
04.09.2012 10:17:48
Thread-ID: 1277302
6 Beiträge
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
Buttonfarbe ändern
Barbara

Hallo
würde gerne einen Button einfügen, der die Hintergrundfarbe ändert, wenn man ihn anklickt.
Wie geht das?
Ich habe einen Button als Formularsteuerelement und ein Textfeld eingefügt.
Wie kann ich diese im Makro ansprechen oder bearbeiten?
Und wenn ich in Entwicklerto...
06.08.2014 20:28:33
Thread-ID: 1374820
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ToggleButton

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