Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1488to1492
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
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung einer Form

Bedingte Formatierung einer Form
27.04.2016 09:56:51
TW
Hallo zusammen,
kann man einen Bezug von einer Zelle auf eine Form herstellen?
Konkret möchte ich gerne eine Form (z. B. Kreis)
- grün einfärben, wenn in der Zelle D3 eine "1" steht und
- rot einfärben, wenn in der Zelle D3 eine "0" steht.
Kann man dies lösen über eine Formel, VBA, etc.?
Vielen Dank im Voraus!
Freundliche Grüße,
Torben

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung einer Form
27.04.2016 10:33:12
Werner
Hallo Torben,
nur kurz mit dem MakroRecorder aufgezeichnet. Den Namen des Shape musst du an deine Bedürfnisse anpassen.
Code gehört ins Code-Modul der Arbeitsmappe auf dem sich das abspielen soll.
-Rechtsklick auf den Tabellenblattreiter - Code anzeigen - kompletten Code rechts ins Code-Fenster
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D3") = 0 Then
ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
Range("D3").Select
ElseIf Range("D3") = 1 Then
ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(146, 208, 80)
.Transparency = 0
.Solid
End With
Range("D3").Select
End If
End Sub
Gruß Werner

Anzeige
AW: Bedingte Formatierung einer Form
27.04.2016 10:43:41
TW
Hallo Werner,
vielen Dank! Genau das was ich gesucht habe. Perfekt :-)
Viele Grüße,
Torben

AW: Gerne und Danke für die Rückmeldung. o.w.T.
27.04.2016 10:44:56
Werner

AW: Kurze Code Variante, Oval Farbwechsel
27.04.2016 10:48:35
Dieter(Drummer)
Guten Tag TW,
hier eine Kurzvariante. Code in Tabelle 1: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D3") = 1 Then
Shapes("Oval 1").Fill.ForeColor.RGB = RGB(255, 0, 0)
ElseIf Range("D3") = 0 Then
Shapes("Oval 1").Fill.ForeColor.RGB = RGB(0, 255, 0)
End If
End Sub

Gruß, Dieter(Drummer)

297 Forumthreads zu ähnlichen Themen

Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Anzeige
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Formatproblem in Formel
martin

Hallo nochmal! :-)
Mein Problem:
In Zelle A1 steht ein Datum. Formatiert auf "Datum, Typ: 14.03.01"
In Zelle A2 soll neben Text auch das Datum (+14 Tage) dargestellt werden.
Also so:
="Bitte überweisen Sie den Betrag bis zum "&A1+14&" auf ....."
Das Problem: Das...
19.12.2008 15:18:41
Thread-ID: 1034180
3 Beiträge
Anzeige
Formeleditor in Userform???
Martin

Hallo zusammen,
ich nehme in einer Userform verschiedene Berechnungen vor, nun sollte ich wenn mit der Maus über ein Ergebnis gefahren wird per MouseMove die zugehörige Berechnugsformel in einem Textfeld anzeigen.
Ist es möglich dies per Formeleditor zu machen um die Formeln vernünftig...
15.01.2009 21:19:00
Thread-ID: 1040313
8 Beiträge
Formelergebnisse in UserForm eintragen
Hans

Hallo,
Ich brauche ein meiner UserForm insgesamt 12 Formelergebnisse in den Label. Das heißt 12 Label, für je ein Ergebniss
Die Ergebnisse dienen als Vorabinformation (über verschiedene Berechnungsvarianten) für den User, der dann in der UF eine Variante mit einem "OptionButton" auswähl...
03.03.2009 22:03:23
Thread-ID: 1056120
6 Beiträge
Farbe von bedingte Formatierung übertragen
bedingte

Hallo,
Wie kann ich die Farbe von bedingte Formatierung von ZellBereich 2 übertagen nach ZellBereich 1
Hintergrund ist dass in Bereich 2 Prozentuelle anteilige Wert je Warengruppe (WGR) ausgerechnet wird.
Ich suche ein möglichkeit diese Farbe eins zu eins von Bereich 2 nach Bereic...
05.03.2009 12:14:23
Thread-ID: 1056767
3 Beiträge
Ampelfarbe - Bedingte Formatierung
Norbert

Hallo Forum,
gibt es grundsätzlich eine Möglichkeit die Farbe der Ampeln zu ändern.
Vorgegeben sind grün/gelb/rot/schwarz (Bedingte Formate/Symbolsätze).
Ziel wäre grün/blau/gelb/rot
Danke
Gruß Norbert
30.03.2009 16:26:59
Thread-ID: 1065348
3 Beiträge
Format in Formel
Jonathan

Hallo zusammen!
Ich habe eine ganz kurze Frage:
Wie kann ich das Format des Wertes in A1 in folgender Formel angeben:
=VERKETTEN("Zahlung in Höhe von ";A1;" erledigt")
Ich hatte es mir so gedacht:
=VERKETTEN("Zahlung in Höhe von ";FORMAT(A1;#.##0,00);" erledigt")
aber da...
18.05.2009 10:00:37
Thread-ID: 1075797
3 Beiträge
Anzeige

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