Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shape per färben wenn Zellwert

Forumthread: Shape per färben wenn Zellwert

Shape per färben wenn Zellwert
24.05.2018 15:26:52
Andreas
Hallo zusammen,
ich möchte ein Shape färben lassen, sobald eine bestimmte Zelle einen bestimmten Wert hat. Der Wert in der Zelle wird über eine Checkbox gesteuert.
Also das Shape soll sich rot färben, wenn der Wert in einer Zelle falsch lautet und grün, wenn der Wert wahr lautet.
Ich möchte, dass die Farbe nicht per CheckBox1_Click() gefärbt wird (habe ich bereits probiert), sondern über den Zellwert.
Habe schon bisschen was probiert, aber leider klappte bisher nichts.
Über Hilfe würde ich mich sehr freuen.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shape per färben wenn Zellwert
24.05.2018 15:43:46
EtoPHG
Hallo Andreas,
Zitat: Ich möchte, dass die Farbe nicht per CheckBox1_Click() gefärbt wird (habe ich bereits probiert)
Was hast du probiert (Code?) und was hat nicht funktioniert?
Das _Click Ereignis ist bestens dazu geeignet. Die Veränderung der Zelle durch die Checkbox wird nicht als _Change Ereignis an Excel propagiert!
Gruess Hansueli
Anzeige
AW: Shape per färben wenn Zellwert
24.05.2018 15:49:00
Andreas 

Sub CheckBox1_Click()
If Worksheets("Übersicht").Range("E3").Value = True Then
Worksheets("Timeline").Shapes("Rechteck 1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 11
End With
ElseIf Worksheets("Übersicht").Range("E3").Value = False Then
Worksheets("Timeline").Shapes("Rechteck 1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 10
End With
End If
End Sub
Das ist der Code, den ich verwendet habe. Allerdings habe ich eine weitere Checkbox, die den selben Zellwert bedient. Dann müsste ich den Code ja für beide Checkboxen eingeben. Deswegen möchte ich es über den einmaligen Zellwert probieren.
Anzeige
AW: Shape per färben wenn Zellwert
24.05.2018 16:28:13
Werner
Hallo Andreas,
deine CheckBox1 zum Färben befindet sich auf dem Blatt "Übersicht"!?
Code gehört ins Codemodul vom Blatt "Übersicht"
Sub CheckBox1_Click()
Application.ScreenUpdating = False
If Worksheets("Übersicht").CheckBox1 Then
Worksheets("Timeline").Activate
Worksheets("Timeline").Shapes("Rechteck 1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 11
End With
Else
Worksheets("Timeline").Activate
Worksheets("Timeline").Shapes("Rechteck 1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 10
End With
End If
Worksheets("Übersicht").Activate
Application.ScreenUpdating = True
End Sub
Ohne die Selektiererei habe ich es nicht hinbekommen.
Gruß Werner
Anzeige
AW: Shape per färben wenn Zellwert
24.05.2018 17:35:08
Oertli
Hallo
Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Tabelle1.Shapes.Range(Array("Rectangle 1")).Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
Tabelle1.Shapes.Range(Array("Rectangle 1")).Fill.ForeColor.RGB = RGB(0, 255, 0)
End If
End Sub
Gruss werni
Anzeige
AW: Shape per färben wenn Zellwert
24.05.2018 17:40:09
Oertli
Hallo Nochmal
Bin neu hier und muss mich erstmals Orientieren
Das Tabelle1 ist der Codename der Tabelle mit deinem Namen Worksheets("Timeline")
Gruss werni
siehe neuer Thread, weiter oben...
25.05.2018 11:59:35
EtoPHG

;

Forumthreads zu verwandten Themen

Markieren wenn Zeileninhalt wechselt
Schmidt

Hi Leute,
hab mal wieder ein Problem. Ich habe in einer Spalte meiner Tabelle eine Werkstoffnummer. Diese hat immer das Format "Ziffer . weitere 4 Ziffern", (z.B. 1.1111). Leider ähneln sich oft Nummern, sodass man die Tabelle schwer lesen kann. Mein Ziel ist es, das Excel mir unter jeden W...
18.11.2008 16:08:39
Thread-ID: 1025684
11 Beiträge
Elemente in Datenbankliste
Julian

Guten Tag,
ich habe folgendes Problem:
Ich arbeite häufig mit großen Datenbanklisten in Excel. Nun benötige ich für 1 oder 2 Spalten in einem anderen Tabellenblatt eine Liste der Elemente, die in dieser(n) Spalte(n) vorkommen.
Wie geht man da am besten vor?
Vielen Dank im vorau...
26.01.2009 10:29:00
Thread-ID: 1043777
3 Beiträge
Zelle FETT markieren, wenn bestimmter Inhalt | Herbers Excel-Forum
Stef@n
Hallo Excel-Friends,
nochmal eine kurze Frage:
Wenn in einer Zelle mit einem längeren Text ein bestimmter Inhalt enthalten ist (z.b. ein bestimmter Text)
soll die jeweilige Zelle FETT markiert werden -- oder farblich markierter Zellhintergrund
also wenn der Text "Beispiel" enth...
03.02.2010 15:25:44
Thread-ID: 1135461
5 Beiträge
Summewenn der letzen 8 in der liste
Otto

Hallo experten,
Ich zerbreche mir den Kopf mit einer Aufgabe, hoffe Ihr könt mir helfen.
Ich glaube am besten kann man sehen was ich meine wenn man sich die Datei ankuckt aber ich werde es versuchen zu erklaeren.
Ich habe eine liste mit Farbennamen und Zahlen. Ich moechete die Summe...
15.02.2010 20:43:13
Thread-ID: 1138744
4 Beiträge
Wenn nur ein Wert vorhanden, dann auto. Vorbelegen
Torsten

Hallo liebe Forumsgemeinde,
ich habe mehere Dropdownlisten.
Und ich blende bei der Auswahl verschiedene Möglichkeiten aus bereits aus, wenn diese nicht eintreffen können. Also wenn nur noch eine Auswahlmöglichkeit besteht, soll Excel automatisch diese Zelle mit dem einzig verfügbaren We...
22.06.2010 08:52:04
Thread-ID: 1163324
4 Beiträge
Anzeige
SummeWenn Kriterium in Liste
hansi13

Hallo,
ich bin auf der Suche nach einer Excel-Formel, die mir die Zahlen in Spalte B addiert, wenn der Schlüssel in Spalte A in einer anderen Liste auftaucht:
A B
Deutschland 10
England 20
Spanien...
13.09.2010 16:31:51
Thread-ID: 1177318
3 Beiträge
Prüfen of Nummer in Liste enthalten
Heinz

Hallo Excellenten,
ich habe eine "Riesen-Spalte" mit mehreren tausend Nummern.
Einige der Nummern sind auch mehrfach in der Spalte enthalten.
... und ich habe eine Liste mit zur Zeit 40 Nummern, die sich aber immer
wieder mal etwas erweitert.
Ich möchte gerne überprüfen, wo...
17.01.2011 13:38:19
Thread-ID: 1195969
3 Beiträge
textbox farbe wenn wert in verzeichnis vorhanden
Achim

Hallo ecxel freunde
wer kann mal schauen und korrigieren
If Dir("I:\AM33\PK22 Weiterbildung\01_Weiterbildung Allgemein und nach BKrFQG\01_Datenbanken und Teilnahmebescheinigung\BKrFQG\Kopie Führerscheine\" & UserForm1.Frame1.TextBox1) "" Then
TextBox84.BackColor = RGB(0, 255, 0...
14.02.2011 14:56:11
Thread-ID: 1200719
4 Beiträge
Min-Wert aus einer Liste dann Zelladresse
Bernd

Hallo liebe Excelspezialisten,
vielleicht könnt ihr mir weiterhelfen, da ich im Archiv leider nichts gefunden habe.
Ich suche eine Lösung OHNE VBA.
Beispiel:
In A1 bis A5 stehen Zahlen z.B. 5,9,12,13
mit MIN(A1:A5) hole ich mir die kleinste Zahl also die 5
Jetzt brauche...
21.02.2011 14:27:16
Thread-ID: 1202104
3 Beiträge
Einfärben wenn Begriff aus Liste
Heinz

Hallo Liebe Excellenten,
in einer Liste geben die Mitarbeiter ihre Arbeitszeiten
ein. Dazu gibt es Projektbezeichnungen.
Leider kommt es immer wieder vor, dass Zeiten
zu Projekten eingegeben werden, die schon abgeschlossen sind.
Beispiel:
Es gibt eine Liste, in welcher a...
28.03.2011 21:52:59
Thread-ID: 1207992
3 Beiträge
wenn wert in zahlenreihe vorhanden, dann
Sascha

einen schönen guten morgen an alle...
folgendes problem: (Diese Daten stehen in Spalte A, B, C untereinander, die nummern sind komma getrennt in einer zelle)
A--------B-------------C (Spalten)
Farbe--System1----System 2
Rot-----1,2,3,4
Grün---5,6-----------1,2,3...
05.05.2011 12:08:27
Thread-ID: 1213163
14 Beiträge
X wenn Bedingung von Auswahlliste erfüllt ist
Auswahlliste

Hallo,
Ich habe ein Problem. Und zwar geht es um folgendes. Ich muss eine Tabelle erstellen bei der je nach meiner Auswahl in Meiner Auswahlliste ein X stehen soll.
Wenn ich zum Beispiel aus meiner Auswahl das A anklicke dann soll in der Tabelle unten drunter, wo die verschiedenen Mögli...
12.05.2011 11:03:17
Thread-ID: 1214134
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige