Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

=WENN(A1=1;"blau";"gelb")

Forumthread: =WENN(A1=1;"blau";"gelb")

=WENN(A1=1;"blau";"gelb")
13.04.2013 16:20:04
Lutz
Hallo,
ich möchte einen Zellhintergrund farblich automatisch formatieren lassen, der sich nach dem Inhalt einer anderen Zelle richet. Mit der "Bedingten Formatierung" komme zumindest ich nicht weiter.
Z.B. in B1 steht untenstehende Formel:
=WENN(A1=1;"blau";"gelb")
Nach dieser Formel erscheint in B1 der jeweilige Text. Gibt es auch eine Formel den Hintergrund in den entsprechenden Colorindex zu versetzt?
Danke, Gruß Lutz

Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: =WENN(A1=1;"blau";"gelb")
13.04.2013 16:28:18
Heike
Hallo Lutz,
markiere die Zellen, die farblich unterlegt werden sollen.
Gehe zur Bedingten Formatierung. Hier: ... Formlen zur Ermittlung verwenden
Formel: "=$A1=1" und danach die Formatierung wählen.
Hoffe, es hilft.
Gruß
Heike

AW: =WENN(A1=1;"blau";"gelb")
13.04.2013 16:34:21
Gerd
Hallo Lutz!
Und als 2. Formel in der bedingten Formatierung
=A11
Gruß Gerd

Anzeige
AW: =WENN(A1=1;"blau";"gelb")
13.04.2013 17:54:44
Jan
' Set the interior of cell A1 to yellow.
Range("A1").Select
Selection.Interior.ColorIndex = 36

und wo prüfst Du auf 1 ?
13.04.2013 18:07:52
Matthias
Hallo
Außerdem ist Select unnötig
Range("B1").Interior.ColorIndex = 36
macht das auch ohne Select
Allerdings ist VBA hier nicht nötig.
Die bedingte Formatierung reicht da völlig aus.
Gruß Matthias

Anzeige
AW: und wo prüfst Du auf 1 ?
13.04.2013 18:51:41
Jan
Hallo
"Außerdem ist Select unnötig"
das ist richtig.
Ich wollte ja auch nur mal anstoßen, das der Cell-Hintergrund zum Beispiel mit der Eigenschaft Interior.ColorIndex angesprochen wird. Diese Eigenschaft lässt sich nicht in der Zelle als Formel angeben.
:Muster zur Abfrage von A1 auf den Inhalt und zuweisen einer Farbe zu einer anderen Zelle.
Wenn ich jetzt noch die Abfrage exit einbringe wird das Macro automatisch bei jeder Zell-Änderung ausgeführt.
Sub autoformat() If Range("A1").Text = 1 Then Range("B1").Interior.ColorIndex = 38 If Range("A1").Text = 2 Then Range("B1").Interior.ColorIndex = 36 End Sub Gruß
Jan

Anzeige
AW: und wo prüfst Du auf 1 ?
13.04.2013 18:55:21
Jan
Hallo,
bitte zeige mir auch mal wie das mit der "Bedingten Formatierung" mit zwei verschiedenen Zellbereichen funktionieren soll.
Ich hätte dann aber nicht nur 1-4 sondern 50 Zahlen auszuwerten.
Gruß
Jan

dann stell selbst einen neuen Beitrag ein
13.04.2013 19:30:41
Matthias
Hallo
Denn das hat nichts mehr mit der Frage von Lutz zu tun.
Desweiteren gefällt mir nicht das nach Deiner 1.Antwort das Level nicht mehr vorhanden ist.
Gruß Matthias

Anzeige
AW: und wo prüfst Du auf 1 ?
13.04.2013 19:28:29
Matthias
Hallo
Wenn ich jetzt noch die Abfrage exit einbringe wird das Macro automatisch bei jeder Zell-Änderung ausgeführt
Da irrst Du Dich aber!
Gruß Matthias

AW: und wo prüfst Du auf 1 ?
13.04.2013 20:51:47
Jan
Hallo Matthias,
so einfach wie ich es geschrieben habe ist es natürlich nicht.
- aber mit den entsprechendem Code möglich, habe es in expliziter Form am laufen.
Ich wusste nicht, das so ein Fuchs wie du im Forum alle Themen durchstöbert.
Interessant wäre doch auch gleich mit dem richtigen Wissen zu antworten, ohne das weitere Fragen auftreten. (ich mit eingeschlossen)
Gruß
Jan

Anzeige
Ich lese eben jeden Tag alle Beiträge ...
13.04.2013 21:09:43
Matthias
Hallo
Und wenn ich etwas weiß gebe ich es auch weiter!
Ich hab ja auch irgendwann mal angefangen.
Allerdings mag ich schon eine gezielte / aussagekräftige Fragestellung !
Gruß Matthias

AW: Ich lese eben jeden Tag alle Beiträge ...
13.04.2013 22:04:58
Jan
Wieder Frieden ?
Jan

AW: @ Jan
14.04.2013 08:54:49
hary
Moin Jan
Das... 
'If Range("A1").Text = 1 Then Range("B1").Interior.ColorIndex = 38
'If Range("A1").Text = 2 Then Range("B1").Interior.ColorIndex = 36

...kann so nicht richtig funzen. Was ist wenn du nach Makroausfuehrung Z.B. die 1 in eine 3 aenderst und das Makro nochmal ausfuehrst?
Da bleibt die alte Farbe erhalten. Besser mit: Change und Case 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim farbe As Long
If Target.Column = 1 And Target.Count = 1 Then 'wenn Zelle in SpalteA und nur eine Zelle  _
ausgeaehlt
Select Case Target
Case 1: farbe = 38 ' Farbe bei 1
Case 2: farbe = 36 'Farbe bei 2
Case 5, 6: farbe = 3 ' Farbe bei 5 und 6
Case Is > 100: farbe = 6 'Farbe bei > 100
'---- usw. ---
Case Else: farbe = xlNone 'keine Farbe in den restlichen Faellen
End Select
Target.Offset(, 1).Interior.ColorIndex = farbe ' eine Spalte nach rechts
End If
End Sub

gruss hary

Anzeige
AW: @ Jan
15.04.2013 20:03:20
Jan
Hi Hary,
jup, so geht es wahrscheinlich auch und mit ca. 9 (die ich kenne) anderen Möglichkeiten auch.
Was wird benötigt ? ist immer wieder die Frage.
Rechenzeit bzw. Ausführungsdauer ?
Wie groß ist die Tabelle, bzw. wie viele Daten (Zellen) müssen abgefragt werden?
Müssen diese in Echtzeit oder per Makro-Auswahl ausgelöst werden ?
Läuft die Tabelle lokal auf dem PC oder befindet sich diese in einem Netzwerkverbund ?
Wie viele Benutzer können die Tabelle zB. im Netzwerk öffnen und ändern ? (Freigaben)
Wie gesagt, viel Fragen welche im Raum stehen.
Alledem vielen Dank für einen Vorschlag für die Bedingte Formatierung.
Ich glaube fast, das dieses Thema eine eigene Rubrik einnehmen kann.
Gruß Jan

Anzeige
AW: und wo prüfst Du auf 1 ?
13.04.2013 21:06:48
Jan
Hallo Matthias,
natürlich nicht einfach nur exit.blabla sondern in entsprechender Form bzw. change.
Gruß
Jan

Setz den Hintergrund generell auf Gelb ...
13.04.2013 17:58:17
Matthias
Hallo
... dann brauchst Du nur eine bedingte Formatierung.
Da nur 1 blau sein soll, ist der Rest ja automatisch gelb.
Tabelle1

 AB
11blau
22gelb
3 gelb
41blau
53gelb

Formeln der Tabelle
ZelleFormel
B1=WENN(A1=1;"blau";"gelb")
B2=WENN(A2=1;"blau";"gelb")
B3=WENN(A3=1;"blau";"gelb")
B4=WENN(A4=1;"blau";"gelb")
B5=WENN(A5=1;"blau";"gelb")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Tabelle1

 AB
11blau

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
B11. / Formel ist =A1=1Abc


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Format der Zelle(B1) einfach runterkopieren
Gruß Matthias

Anzeige
AW: Setz den Hintergrund generell auf Gelb ...
13.04.2013 18:15:10
Lutz
Hallo...

witziger Beitrag ;-) owT
13.04.2013 18:17:26
Matthias
;

Forumthreads zu verwandten Themen

Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Wenn zelle AW3, dann Farbe und Text.
Friedrich

Guten Abend liebe Excel-Spezis,
ich brauche in VBA folgende Lösung:
In der Zelle AW3 erscheinen über eine Formel drei Aussagen SH, H und E
Bei SH sollte die Zelle A7 Rot werden und eine Text "Sofortiger Handlungsbedarf" in Fett erscheinen.
Danke für eure Hilfe
Gruß Friedrich...
30.08.2010 18:23:16
Thread-ID: 1174841
2 Beiträge
Anzeige
wenn in textbox1 der wert zwischen 1 u 35 dann rot
Achim

Hallo Excel Freunde
Komm nicht weiter. Wenn In meiner textbox1 der wert zwischen 0 und 34 liegt soll das Textfeld rot sein.
ist der wert 35 dann soll das Feld grün sein
Habe rumprobiert bekomme das nicht hin:
If TextBox1.Value = ? Then TextBox1....
06.12.2010 12:16:05
Thread-ID: 1190233
4 Beiträge
Wenn alle TextBox leer dann Exit Sub
frank

Hallo
Bei wenigen TextBox prüfe ich den Inhalt so
If TextBox3.Text = "" And _
TextBox4.Text = "" And _
TextBox32.Text = "" And _
TextBox33.Text = "" Then
Exit Sub
Bei vielen TextBox wird es doch eine lange Liste.
Die Prüfung mit einer Schleife krieg ich nicht hin...
13.12.2010 17:49:31
Thread-ID: 1191269
6 Beiträge
Wenn Text in Spalte A = "TT" dann kopiere werte
gemanna

Hallo alle zusammen,
habe immer mit Excel gearbeitet und bin immer gut zurecht gekommen. Vor einigen Tagen habe angefangen Makros und VBA kennenzulernen und bin richtig fasziniert von den Möglichkeiten, die das Programm bietet. Nun brauch ich die Hilfe von euch, weil ich in den Büchern und...
01.04.2011 10:42:39
Thread-ID: 1208640
6 Beiträge
Wenn Dann Und Farbe
Klaus

Hallo Zusammen,
Noch ein Problem bei dem ihr mir hoffentlich helfen könnt.
Wenn die Zelle "D61" Füllfarbe rot ist und die nächste Zelle darüber ("D60") den gleichen Wert, aber eine andere Füllfarbe hat, soll ein"X" ausgegeben werden.
Hat jemand eine Idee?
22.05.2011 17:55:49
Thread-ID: 1215518
8 Beiträge
Wenn in Userform textbox Formel steht, dann
Sascha

Guten Morgen Experten.
Ich versuche mich wiedereinmal an einem Code, aber es will einfach nicht klappen
Ich möchte in einer Userform die Textboxen ausblenden lassen die keine Formeln erhalten...
Habs so versucht: For n = 29 To 46 If Datenmaske.Controls("TBF" & n).Value = "=*" T...
03.02.2012 11:01:55
Thread-ID: 1249078
3 Beiträge
Wenn dann einfärben - Worteil
Arthur

Hallo zusammen
Wie muss ich die Formel schreiben, wenn ich eine bedingte Formatierung erstellen möchte, aber mit einem Wortteil?:
In F7 kann "Schere BCD13-123" oder "Schere ACD14-123" etc. stehen
=$F7="D13-" geht ja nicht, weil in F7 genau D13- oder nichts anderes stehen müsste..
06.08.2012 15:38:44
Thread-ID: 1273921
6 Beiträge
wenn Listbox Text enthält, dann..
Wolfgang

Hallo,
ich versuche in einem Code eines UF "einzubauen", dass wenn die Listbox1 Text enthält, Frame5 und CommandButton4 verschwinden. Nachfolgend mein Versuch, der aber nicht so wirklich gelingt. Bin für jede Hilfestellung daher sehr dankbar und danke schon jetzt für die Rückmeldungen.
...
05.01.2014 19:02:02
Thread-ID: 1344191
3 Beiträge
Wenn indikator dann andere Farbe und zurück
Wolfgang Jung

Hallo Ihr netten Helfer,Habe ein Makro von L. Vira erhalten und etwas geändert,
damit alle Zellen mit Indikator eine bestimmte Farbe erhalten
(siehe Beitrag vom 17.07.2001)Sub IF_COMMENT()
Dim c As Range
Dim aC As Range
Set aC = ActiveCell
On Error GoTo ende 'Es sind keine Kom...
19.07.2002 14:01:15
Thread-ID: 138504
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Bedingte Formatierung in Excel: Zellhintergrund nach Inhalt formatieren

Schritt-für-Schritt-Anleitung

  1. Zellen markieren: Wähle die Zellen aus, deren Hintergrundfarbe du basierend auf dem Inhalt einer anderen Zelle ändern möchtest (z.B. B1).
  2. Bedingte Formatierung öffnen: Gehe auf die Registerkarte „Start“ und klicke auf „Bedingte Formatierung“.
  3. Neue Regel hinzufügen: Wähle „Neue Regel“ und dann „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
  4. Formel eingeben: Gib die folgende Formel ein: 
    =$A1=1

    Diese Formel prüft, ob der Wert in Zelle A1 gleich 1 ist.

  5. Formatierung wählen: Klicke auf „Formatieren“ und wähle die gewünschte Hintergrundfarbe (z.B. Blau).
  6. Regel anwenden: Klicke auf „OK“ und bestätige alle Fenster.

Häufige Fehler und Lösungen

  • Problem: Die Hintergrundfarbe ändert sich nicht.

    • Lösung: Überprüfe, ob du die Zellen korrekt markiert hast und die Formel in der bedingten Formatierung richtig eingegeben wurde.

  • Problem: Die Formel funktioniert nur für eine Zelle.

    • Lösung: Stelle sicher, dass du den richtigen Zellbezug verwendest (z.B. =$A1 anstelle von =A1). Das Dollarzeichen fixiert die Spalte.

Alternative Methoden

  1. Verwendung von VBA: Du kannst auch VBA verwenden, um den Hintergrund basierend auf dem Zellinhalt zu ändern. Ein einfaches Beispiel: 
    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 And Target.Count = 1 Then
       Select Case Target.Value
           Case 1: Target.Offset(0, 1).Interior.ColorIndex = 38 ' Blau
           Case 2: Target.Offset(0, 1).Interior.ColorIndex = 36 ' Gelb
       End Select
   End If
End Sub

    Dieser Code ändert die Hintergrundfarbe der benachbarten Zelle, wenn sich der Wert ändert.

Praktische Beispiele

  • Beispiel 1: Wenn in Zelle A1 der Wert 1 steht, soll in B1 „blau“ angezeigt werden:

    =WENN(A1=1;"blau";"gelb")

  • Beispiel 2: Verwendung der Formel für mehrere Zellen (z.B. B1, B2, B3):

    =WENN(A1=1;"blau";"gelb")
=WENN(A2=1;"blau";"gelb")
=WENN(A3=1;"blau";"gelb")

  • Beispiel 3: Summierung mit Farben: 

    =A1*B1 + A2*B2 + A3*B3

Tipps für Profis

  • Kombinieren von Bedingungen: Du kannst mehrere Bedingungen in einer einzigen Formel kombinieren, um komplexere Regeln zu erstellen.
  • Dynamische Zellreferenzen: Verwende dynamische Zellreferenzen, um die Flexibilität deiner Formeln zu erhöhen (z.B. =$A$1 für absolute Referenzen).
  • Farbcodes: Nutze die ColorIndex-Werte für spezifische Farben, um eine konsistente Formatierung zu gewährleisten.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Farben für verschiedene Werte festlegen? Du kannst mehrere Regeln in der bedingten Formatierung hinzufügen, jede mit ihrer eigenen Formel und Farbe.

2. Funktioniert das auch in älteren Excel-Versionen? Ja, die beschriebenen Schritte zur bedingten Formatierung sind in den meisten Excel-Versionen verfügbar, auch in Excel 2010 und neuer.

3. Können Formeln in der bedingten Formatierung komplexer sein? Ja, du kannst komplexe Formeln verwenden, um verschiedene Bedingungen zu prüfen, z.B. kombinierte WENN-Funktionen.

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