Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche färben und nach klicken...

Forumthread: Schaltfläche färben und nach klicken...

Schaltfläche färben und nach klicken...
04.11.2021 12:53:04
werner
Guten Tag zusammen,
wenn in der Zelle O1 "Werkstatt" steht soll die Schaltfläche: "Werk1" Rot eingefärbt und die Schrift Weiß sein.
Nach drücken der Schaltfläche wieder die Schaltflächenfarbe und Schrift Rot gesetzt werden.
Ist sowas möglich ?
mfg Werner
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche färben und nach klicken...
04.11.2021 12:55:24
Rudi
Hallo,

wenn in der Zelle O1 "Werkstatt" steht
wie kommt das da rein?

Ist sowas möglich ?
Ja.
Gruß
Rudi
Durch Auswahl
04.11.2021 13:38:38
werner
Hallo Rudi,
ich wähle den Namen per ComboBox aus, dann wird der Name in O1 geschrieben.
mfg werner
Anzeige
AW: Schaltfläche färben und nach klicken...
04.11.2021 13:51:56
Klaus
Hallo Werner,
Mit einer ActiveX Schaltfläche geht es so:

Sub ChangeButtonColorA()
Werk1.ForeColor = 16777215
Werk1.BackColor = 255
End Sub
Private Sub Werk1_Click()
Werk1.ForeColor = 255
Werk1.BackColor = 255
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$1" Then
If Target.Value = "Werkstatt" Then Call ChangeButtonColorA
End If
End Sub
LG,
Klaus M.
Anzeige
Leider nicht, war wohl mein...
04.11.2021 14:43:26
werner
Hallo Klaus M,
leider klappt es nicht.
Nur wenn ich die Zeile anklicke, klappt es.
In der Zeile O1 steht eine Formel, die dann das Wort "Werkstatt" darstellt.
=WENN(ISTFEHLER(FINDEN("Werkstatt";O1));"";"Werkstatt")
gruß
werner
Das sind nun 2 diametral...
04.11.2021 14:57:30
{Boris}
Hi Werner,
...unterschiedliche Antworten: Erst kommt der Wert aus der ComboBox dahin, dann aus der Formel. Was denn nun?
VG, Boris
Anzeige
Sorry meine Schuld...
04.11.2021 15:34:28
werner
Sorry,
ist meine Schuld, hier meine Klarstellung.
Als mit der ComboBox wähle ich Namen aus, die werden in Zelle O3 habe Zellen geändert) geschrieben.
In O5 steht jetzt diese Formel:
=WENN(ISTFEHLER(FINDEN("Werkstatt";O3));"";"Werkstatt").
Wenn also das Wort Werkstatt auftaucht, wird dies in O5 geschrieben.
gruß werner
Anzeige
AW: Sorry meine Schuld...
04.11.2021 15:39:41
{Boris}
Hi Werner,
zeig doch mal Deine Mustermappe - auch um zu sehen, welche Controls Du genau verwendest.
VG, Boris
AW: Sorry meine Schuld...
04.11.2021 15:46:41
werner
Hallo Boris,
kann leider nicht die Datei senden, ist zu groß.
Hier die beiden Makros:

Private Sub ComboBox1_Change()
Range("O3").Value = ComboBox1.Text
End Sub


Public Sub FillComboBox()
Dim lngrow As Long
Call ComboBox1.Clear
Select Case Cells(1, 1).Value
Case 1
With Worksheets("Feiertage")
For lngrow = 4 To 30
ComboBox1.AddItem .Cells(lngrow, 9).Text & ", " & .Cells(lngrow, 10) & "    " & .Cells(lngrow, 11) & "    " & .Cells(lngrow, 12).Text
Next lngrow
End With
End Select
End Sub
Der Text wird also aus 4Spalten zusammengesetzt, klappt soweit alles gut.
Ich wollte jetzt nur einen Hinweis einbauen, damit sieht wenn der Name "Werkstatt" vorhanden ist,
sollte das CommandButton ROT und die Schrift WEIß werden.
gruß werner
Anzeige
Direkt im Change-Ereignis
04.11.2021 16:03:55
{Boris}
Hi,
mach alles direkt im Change-Ereignis der ComboBox:

Private Sub ComboBox1_Change()
Range("O3").Value = ComboBox1.Text
With Me.CommandButton1
If ComboBox1.Text Like "*Werkstatt*" Then
.BackColor = 255
.ForeColor = 16777215
Else
.BackColor = 255
.ForeColor = 255
End If
End With
End Sub
VG, Boris
Anzeige
Kleiner Nachtrag...
04.11.2021 16:14:14
{Boris}
Hi,
ich hatte die Zustände des Commandbuttons so verstanden:
Normal: ROT / ROT
Werkstatt: ROT / WEISS
Ich glaube aber gerade, dass der Normalzustand nicht ROT / ROT sein soll, sondern ? (grau?) / ROT.
Demnach musst Du die BackColor in der Else-Bedingung von 255 noch entsprechend auf Deine normale Farbe anpassen.
VG, Boris
Anzeige
Cool Boris !!! Einwandfrei ! --))
04.11.2021 16:31:11
werner
Hallo Boris,
Super Idee !!!
Danke !
mfg werner
AW: Schaltfläche färben und nach klicken...
04.11.2021 15:44:04
Udo
Hallo Werner,
das kannst du hierüber auch schon realisieren, und zwar ganz ohne dass du deinen Button selbst direkt mit Haufen Code zum Formatieren usw belegen musst.
Wenn du dir hiermit einen Button erzeugst, kannst du diesen in mehreren TAB nutzen und alle färben / Texte etc. passen sich automatisch an ...
Kannst ja mal antesten ...
https://www.herber.de/forum/messages/1854818.html
LG udo
Anzeige
;

Forumthreads zu verwandten Themen

Gesperrte Schaltfläche
Christian

Hallo,
bin absoluter VBA- Anfänger und habe folgende Frage:
Ich möchte gerne eine Schaltfläche zur Ausführung eines Makros erstellen, die beim Öffnen der Datei verfügbar ist. Dies soll jedoch nicht über eine Schaltfläche aus der Sysmbolleiste erfolgen, da diese Schaltfläche in einem ung...
21.06.2009 10:21:58
Thread-ID: 1083195
5 Beiträge
Schaltflächen: Format-Bug
Peter

Hallo Leute,
in mein Programm habe ich diverse Befehlsschaltflächen eingebaut. Leider kommt es hin und wieder vor, dass das Textformat der Schaltfläche (Caption) durch die Schaltflächenbetätigung stetig größer bzw. kleiner wird. Hin und wieder vergrößert bzw. verkleinert sich auch die gesam...
25.06.2009 14:10:20
Thread-ID: 1084338
3 Beiträge
Schaltfläche und Vergrößerungsfaktor
Wolfgang

Hallo liebe Experten,
ich habe zwei Fragen:
1. Früher konnte ich die excel-Schaltflächen selbst zeichnen, heute gelingt mir das nicht mehr. Geht das mit Office 2003 noch?
2. Kann ich den default-Wert der Vergrößerung (in der Symbolleiste: Standard) der auf 100% festliegt ändern? Ich...
26.06.2009 20:26:11
Thread-ID: 1084657
5 Beiträge
Ausrichtung Befehlsschaltfläche
berni

Liebe Excel-lenzen!
Ich hatte einmal den Short-Cut intus, aber leider in der zwischenzeit wieder vergessen.
Also: Wenn ich untereinander verschiedene Schaltflächen aus der Formularsammlung untereinander aufgelistet habe, gab es doch irgendwie eine Möglichkeit, per Shortcut die unteren a...
30.06.2009 19:09:55
Thread-ID: 1085343
3 Beiträge
Gif auf Schaltfläche
ReSt

Guten Morgen
Da hätte ich mal eine Frage. Kann man auf eine Activ X-Schaltfläche eine gif-Animation legen?
Bis jetzt hat sich bei mir noch nichts bewegt.
Gruss Reto
05.07.2009 10:33:28
Thread-ID: 1086448
5 Beiträge
Schaltflächenmakro
Michael

Servus,
ich bin noch blutiger Excel/VBA Anfänger und will mir ein paar kleine Ecxel Makros bauen. Ich habe eine Tabelle mit zwei Schaltflächen. Schalftfläche "Ordner" soll prüfen ob im selben Verzeichnis wie der Excel Datei bereits ein Ordner mit dem Name aus den Spalten A "Artikel" und B "...
07.07.2009 13:09:26
Thread-ID: 1086922
2 Beiträge
Makro ausführen mit Schaltfläche
Alex

Hi @ all,
ich habe mal wieder ein Problem.
Und zwar hab ich folgendes Makro in einer Vorlage:
Sub FilternKopierenTGA() Dim rngAct As Range With Worksheets("TGA") .Cells.Clear Range("N1").AutoFilter _ Field:=14, Criteria1:="TGA" 'Filtern Spalte N nach TGA Set rngAct = Range("A2"...
08.07.2009 13:38:12
Thread-ID: 1087178
5 Beiträge
Makroschaltfläche
Hübner

Hallo liebe Helfer,
ich habe gleich 2 Probleme, sicherlich könnt Ihr mir wieder helfen.
Thema: Dateienumstellung von 2003 auf 2007
1.
gibt es eine Möglichkeit in 2007 das beim Aufzeichnen von einem Makro eine vorhandene Schaltfläche (die mit einem Makro hinterlegt ist, erstellt...
14.07.2009 21:02:25
Thread-ID: 1088359
2 Beiträge
Schaltfläche auszeichnen
Hübner

Hallo liebe Helfer,
ich habe ein Probleme, sicherlich könnt Ihr mir wieder helfen.
gibt es eine Möglichkeit in 2007 das beim Aufzeichnen von einem Makro eine vorhandene Schaltfläche (die mit einem Makro hinterlegt ist, erstellt mit 2003)mit aufgezeichnet wird?
In 2003 ging dies prob...
14.07.2009 14:31:23
Thread-ID: 1088468
7 Beiträge
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
Anzeige
ListFilRange bei Befehlsschaltflächen
Pfannen-Meister

Guten Tag,
nachdem mir hier heute Vormittag schon geholfen wurde, müßte ich nochmals Hilfe in Anspruch nehmen:
Wenn ich mit Befehlsschaltflächen arbeite, so kann ich im Feld "ListFilRange" eine bestimmte Menge an Excel-Feldern auswählen, deren Inhalt mit Hilfe der Befehlsschaltfläche s...
06.08.2009 15:23:31
Thread-ID: 1094074
3 Beiträge
Schaltflächen verschwinden
Fritz

Hallo,
ich habe das Problem, dass nachdem eine Excel-Tabelle Monatelang in einer Firmenumgebung einwandfrei funktioniert hat (als Freigegebenes Dokument mit einigen Makros) nun plötzlich beim anwenden des Autofilters wahllos Schaltflächen "verschwinden" lässt.
Das Dokument wird von ver...
17.08.2009 13:06:59
Thread-ID: 1096418
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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