Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen einfärben

Forumthread: Zellen einfärben

Zellen einfärben
24.04.2003 08:48:33
Michael Behrens
Hallo,
habe mir privat eine Tabelle erstellt und moechte die
Zellen entsprechend dem eingegebenen Kriterium einfaerben.
z.B. bei 50 die Zelle mit Farbe 1 (z.B. gruen)
bei 40 die Zelle mit Farbe 2 (z.B. gelb)
bei 25 die Zelle mit Farbe 3 (z.B. rot)
bei 15 die Zelle mit Farbe 4 (z.B. hellblau)
bei 0 die Zelle mit Farbe 5 (z.B. grau)
Mit der bedingten Formatierung ist es sehr schlecht zu
Lösen, nur 3 Farben möglich.
Ist dies mit einem Macro zu lösen, und wenn ja, wie?
In Sachen VBA bin ich Neuling.

MICHAEL

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellen einfärben
24.04.2003 08:50:41
moe

Wo stehen die Werte alle untereinander oder durcheinander auf dem sheet brauch die Info um dir was zu basteln.

Gruss
moe

Re: Zellen einfärben
24.04.2003 09:56:37
Michael Behrens

Hallo,

die Werte stehen durcheinander, z.B.

Bemerkung | Datum | Kriterium1 | Kriterium2 | ... | SUMME
----------------------------------------------------------
Chemie | April | 50 | 30 | ... | xxx
..... etc.

so wird die Tabelle aussehen

Gruß
MICHAEL



Anzeige
Re: Zellen einfärben
24.04.2003 10:12:58
Michael Behrens

Hallo,

die Werte stehen durcheinander, z.B.

Bemerkung | Datum | Kriterium1 | Kriterium2 | ... | SUMME
----------+-------+------------+------------+-----+------
Chemie | April | 50 | 30 | ... | xxx
..... etc.

so wird die Tabelle aussehen

Gruß
MICHAEL

Anzeige
Re: Zellen einfärben
24.04.2003 10:18:42
moe

hallo Michi
hier ein Lösungsvorschlag der Funktioniert

gruss
moe
bitte feedback geben

Sub Zellenfärben()
ActiveSheet.UsedRange.Select
For Each cell In Selection
If cell.Value = 50 Then cell.Interior.ColorIndex = 4
If cell.Value = 40 Then cell.Interior.ColorIndex = 6
If cell.Value = 25 Then cell.Interior.ColorIndex = 3
If cell.Value = 15 Then cell.Interior.ColorIndex = 8
If cell.Value = 0 Then cell.Interior.ColorIndex = 15
Next
End Sub

Anzeige
Re: Zellen einfärben
24.04.2003 13:56:05
Michael Behrens

Hallo,

danke für die schnelle Antwort. Doch nach dem Hineinkopieren
in den VBA-Editor und dem eintragen in den Zellen von Excel
passierte bei mir jedenfalls garnichts.

MICHAEL

Re: Zellen einfärben
24.04.2003 14:03:38
moe

Du musst es manuell starten
oder du steckst es in ein Tabellenblatt dann wird es automatisch ausgeführt

Gruss
moe

Anzeige
Re: Zellen einfärben
25.04.2003 07:34:28
Michael Behrens

Danke,
hat wunderbar funktioniert

MICHAEL

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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