Das Archiv des Excel-Forums

Zellen nach Bedingung automatisch färben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zellen nach Bedingung automatisch färben
von: ORK

Geschrieben am: 22.09.2003 13:07:31

Hallo Leute,

ich habe da ein Problem mit dem Einfärben von Zellen und habe auch trotz intensiver Suche im Netz keine Lösung finden können, die funktioniert. Meine letzte Hoffnung ist, daß jemand von Euch helfen kann.

Also mein Vorhaben ist folgendes:

ich habe in z.B. in der Spalte K den Zellen K6 bis K35 einen Zahlenwert zugewiesen. Jetzt soll allerdings ab einem bestimmten Zahlenwert die Zelle mit einer Farbe ausgefüllt werden. Das ganze kann man sich so vorstellen:

ab dem Wert 25 = Zellenfarbe gelb
ab dem Wert 50 = Zellenfarbe rot
ab dem Wert 100 = Zellenfarbe blau
ab dem Wert 200 = Zellenfarbe grün

Mit der bedingten Formatierung komme ich hier nicht weiter, da es ja bei mir mehr als 3 Farben bzw. Bedingungen sind.
Wichtig ist mir auch, daß ich das Makro nicht jedesmal manuell aufrufen muß, sondern daß es wie bei der bedingten Formatierumg automatisch im Hintergrund läuft.

Über Lösungsvorschläge über VBA bin ich sehr dankbar

Gruß an alle hier

ORK
Bild


Betrifft: AW: Zellen nach Bedingung automatisch färben
von: Hajo_Zi
Geschrieben am: 22.09.2003 13:15:00

Hallo ORK

schaue auf meine Homepage.



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/



Bild


Betrifft: AW: Zellen nach Bedingung automatisch färben
von: Holger Levetzow
Geschrieben am: 22.09.2003 13:18:29

Hallo ORK,
füge folgenden Code in das Modulblatt der Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Target.Row > 5 And Target.Row < 36 Then 'Spalte K und Zeile von 5 bis 35
If Target.Value <= 25 Then Target.Interior.ColorIndex = 0
If Target.Value > 25 Then Target.Interior.ColorIndex = 6
If Target.Value > 50 Then Target.Interior.ColorIndex = 3
If Target.Value > 100 Then Target.Interior.ColorIndex = 5
If Target.Value > 200 Then Target.Interior.ColorIndex = 4
End If
End Sub

Holger


Bild


Betrifft: RE: Zellen nach Bedingung automatisch färben
von: ORK
Geschrieben am: 22.09.2003 13:27:27

DAAAAAAAAAAAANKE Hajo und Holger *freu*

Genau DAS habe ich gesucht .....das ist genial !!

Nochmals vielen Dank... jetzt komme ich bei meiner Tabelle endlich weiter.

Viele Grüße

ORK


Bild


Betrifft: Danke für die Rückmeldung oT
von: Hajo_Zi
Geschrieben am: 22.09.2003 13:29:12




Bild


Betrifft: AW: Zellen nach Bedingung automatisch färben
von: Franz Pölt
Geschrieben am: 22.09.2003 22:27:53

Hallo ORK,

nicht ganz genau was du wolltest, aber eine Lösung ohne VBA :-)

1 x blaue Schrift über benutzerdefiniertes Zahlenformat
3 x bedingte Formatierung

Excel Jeanie HTML
Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A21. / Zellwert ist grösser als 199,99Abc
A22. / Zellwert ist grösser als 99,99Abc
A23. / Zellwert ist grösser als 49,99Abc
A31. / Zellwert ist grösser als 199,99Abc
A32. / Zellwert ist grösser als 99,99Abc
A33. / Zellwert ist grösser als 49,99Abc
A41. / Zellwert ist grösser als 199,99Abc
A42. / Zellwert ist grösser als 99,99Abc
A43. / Zellwert ist grösser als 49,99Abc
A51. / Zellwert ist grösser als 199,99Abc
A52. / Zellwert ist grösser als 99,99Abc
A53. / Zellwert ist grösser als 49,99Abc
A61. / Zellwert ist grösser als 199,99Abc
A62. / Zellwert ist grösser als 99,99Abc
A63. / Zellwert ist grösser als 49,99Abc
A71. / Zellwert ist grösser als 199,99Abc
A72. / Zellwert ist grösser als 99,99Abc
A73. / Zellwert ist grösser als 49,99Abc
A81. / Zellwert ist grösser als 199,99Abc
A82. / Zellwert ist grösser als 99,99Abc
A83. / Zellwert ist grösser als 49,99Abc
A91. / Zellwert ist grösser als 199,99Abc
A92. / Zellwert ist grösser als 99,99Abc
A93. / Zellwert ist grösser als 49,99Abc
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download   Servus aus dem Salzkammergut Franz

 Bild

Excel-Beispiele zum Thema " Zellen nach Bedingung automatisch färben"

Makros in Abhängigkeit vom Zellennamen aufrufen download Zellen auf Kommentar überprüfen download
Spalten bedingt summieren und Zellen formatieren download Text aus Textbox in Zellen aufteilen download
Zellen vergleichen und markieren download Zählen formatierter Zellen download
Daten aus Textdatei gezielt in Zellen übernehmen download Zellen verbinden und trennen download
Zellen bei Minuswerten schraffieren download Zeilen oberhalb der markierten Zellen einfügen download
Drei Zellen rechts der aktiven Zelle markieren download Zellen vom Druck ausschließen download
Zellenwert als Autofilter-Kriterienwert download Nur Zellen mit Inhalt in ComboBox listen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Zellen nach Schriftfarbe summieren download
Füllen aller leeren Zellen mit einem Platzhalter download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Anzahl der gelb hinterlegten Zellen ermitteln download
Editieren von Zellen durch DoppelKlick verhindern download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download Prüfung, ob Parallelzellen übereinstimmen download
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Wert aus A1 in mehrere Zellen übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Nur sichtbare Zellen addieren download Zellinhalte vor dem Verbinden der Zellen zusammenfassen download
Blatt auswählen und Zellen nacheinander drucken download Leere und Zellen mit 0 aus-/einblenden download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Prüfung, welche Zellen nach Öffnen verändert wurden download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeilenhöhe bei verbundenen Zellen anpassen download
Einfügen von Zeilen vor und nach Zellen mit Fettdruck download Bei Zelleingabe andere Zellen füllen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download Gültigkeitsliste ohne Lerrzellen download
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download Zellen verbinden, ohne dass Werte verlorengehen download
Wert aus Spalte C, wenn Spalten A und B Bedingungen erfüllen download Beim Erfüllen einer Bedingungen Farbe für 1 Minute download
Anzahl von Werten nach verschiedenen Bedingungen. download Zeilen zählen, in denen zwei Bedingungen zutreffen download
Dem Zellkontextmenü ein Menü "Zahlungsbedingungen" hinzufügen download Wert eintragen, wenn Bedingte-Formatierung-Bedingung zutrifft download
Zelle markieren, wenn zwei Bedingungen erfüllt sind download Automatische Datumformatierung unterdrücken download
Automatisch Sicherungsdatei erstellen download Automatisches Komplettieren einer Zelleingabe download
Zelleingaben automatisch auf volle 1,2-Teile runden download Tabelle nach Datumseintrag automatisch sortieren download
Eingaben in B:D automatisch mit 6 multiplizieren download Zelleingabe automatisch in Kopfzeile übernehmen download
Nach Zelleingabe automatische Sortierung download Automatische Sortierung bei Zelleintrag download
Min- und Max-Werte automatisch markieren download Automatische Passworteingabe in Internet-Formular download