Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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



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

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

Anzeige
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

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

Danke,
hat wunderbar funktioniert

MICHAEL

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige