Zellen nach Bedingung automatisch färben

• Zellen nach Bedingung automatisch färben von ORK vom 22.09.2003 13:07:31
  • AW: Zellen nach Bedingung automatisch färben - von Hajo_Zi am 22.09.2003 13:15:00
  • AW: Zellen nach Bedingung automatisch färben - von Holger Levetzow am 22.09.2003 13:18:29
  • RE: Zellen nach Bedingung automatisch färben - von ORK am 22.09.2003 13:27:27
    • Danke für die Rückmeldung oT - von Hajo_Zi am 22.09.2003 13:29:12
  • AW: Zellen nach Bedingung automatisch färben - von Franz Pölt am 22.09.2003 22:27:53

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


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/





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




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




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






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

Bedingte Formatierungen der Tabelle

Zelle Nr.: / Bedingung Format A2 1. / Zellwert ist grösser als 199,99 Abc A2 2. / Zellwert ist grösser als 99,99 Abc A2 3. / Zellwert ist grösser als 49,99 Abc A3 1. / Zellwert ist grösser als 199,99 Abc A3 2. / Zellwert ist grösser als 99,99 Abc A3 3. / Zellwert ist grösser als 49,99 Abc A4 1. / Zellwert ist grösser als 199,99 Abc A4 2. / Zellwert ist grösser als 99,99 Abc A4 3. / Zellwert ist grösser als 49,99 Abc A5 1. / Zellwert ist grösser als 199,99 Abc A5 2. / Zellwert ist grösser als 99,99 Abc A5 3. / Zellwert ist grösser als 49,99 Abc A6 1. / Zellwert ist grösser als 199,99 Abc A6 2. / Zellwert ist grösser als 99,99 Abc A6 3. / Zellwert ist grösser als 49,99 Abc A7 1. / Zellwert ist grösser als 199,99 Abc A7 2. / Zellwert ist grösser als 99,99 Abc A7 3. / Zellwert ist grösser als 49,99 Abc A8 1. / Zellwert ist grösser als 199,99 Abc A8 2. / Zellwert ist grösser als 99,99 Abc A8 3. / Zellwert ist grösser als 49,99 Abc A9 1. / Zellwert ist grösser als 199,99 Abc A9 2. / Zellwert ist grösser als 99,99 Abc A9 3. / Zellwert ist grösser als 49,99 Abc

Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download   Servus aus dem Salzkammergut Franz

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

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