Das Archiv des Excel-Forums
Zellen nach Bedingung automatisch färben
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
Excel Jeanie HTML
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 |
 |