Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
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
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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
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
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

302 Forumthreads zu ähnlichen Themen

Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige
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
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 Beiträge
Anzeige
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
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
Zeile rot einfärben, wenn Zelle X einen Wert übers
Takahara

Hallo,
ich habe eine Berechnung abgeschlossen und möchte nun mit der Auswertung das ganze abrunden.
Dazu möchte ich meine Tabelle durchlaufen (mit einer For-Schleife) und jedes mal wenn in einer Zeile der Wert in der Spalte "L" über den Wert einer Variablen (Uss2) steigt, die Zeile rot...
10.10.2010 10:56:54
Thread-ID: 1181570
10 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox

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