Bedingte Formatierung

Forumthread: Bedingte Formatierung

24.01.2004 10:54:49

Toni

Hallo!
Möchte gerne für Werte z.Bsp. 1,2,3,4,5 unterschiedliche Hintergrundfarben
der Nachbarzelle in der jeweils selben Zeile zuweisen.
Schaffs mit Bedingt Formatieren nicht da nur 3 angeboten werden ich aber 5 Bedingungen habe.
Erbitte Hilfe
Danke Toni

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bedingte Formatierung

24.01.2004 12:03:47

Erich M.
AW: Bedingte Formatierung

24.01.2004 12:26:13

Toni
AW: Bedingte Formatierung

24.01.2004 16:50:47

Erich M.
AW: Bedingte Formatierung

24.01.2004 17:28:06

toni
AW: Bedingte Formatierung

24.01.2004 17:55:40

Erich M.

AW: Bedingte Formatierung

24.01.2004 12:03:47

Erich M.

Hallo Toni,
als Muster zur Anpassung:
' in ein Tabellenmodul


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case 1
Target.Interior.ColorIndex = 2
Case 2
Target.Interior.ColorIndex = 3
Case 3
Target.Interior.ColorIndex = 4
Case 4
Target.Interior.ColorIndex = 5
Case 5
Target.Interior.ColorIndex = 6
Case 6
Target.Interior.ColorIndex = 7
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

mfg
Erich

AW: Bedingte Formatierung

24.01.2004 12:26:13

Toni

Vielen Dank für die schnelle Antwort.
Leider bin ich VBA Anfänger. Erbitte ein Beispiel für:
Zelle A1 steht 1 dann Zelle B1 Hintergrundfarbe grün
Zelle a1 steht 2 dann Zell B1 Hintergrundfarbe blau
für 3 Hintergrundfarbe grau und für 4 Hintergrundfarbe gelb.
wenn keine nr 1-4 steht dann hintergrund keine Farbe.
Danke für die Hilfe.

AW: Bedingte Formatierung

24.01.2004 16:50:47

Erich M.

Hallo Toni,
probiers mal damit:
(in ein Tabellenmodul)


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case 1
Target.Cells(1, 2).Interior.ColorIndex = 4
Case 2
Target.Cells(1, 2).Interior.ColorIndex = 15
Case 3
Target.Cells(1, 2).Interior.ColorIndex = 5
Case 4
Target.Cells(1, 2).Interior.ColorIndex = 6
Case 5
Target.Interior.ColorIndex = 7
Case ""
Target.Cells(1, 2).Interior.ColorIndex = xlColorIndexNone
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

mfg
Erich

AW: Bedingte Formatierung

24.01.2004 17:28:06

toni

Vielen Dank Erich.
Funkt super.
Schöne Grüsse aus dem verschneiten Fieberbrunn in Tirol.
Toni Niederwieser

AW: Bedingte Formatierung

24.01.2004 17:55:40

Erich M.

Hallo Toni,
freut mich; danke für die Rückmeldung - in Augsburg z. Zt. kein Schnee!
Schönes Wochenende!
mfg
Erich

Beliebteste Forumthreads (12 Monate)

Forumthread: Bedingte Formatierung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread