andere zelle färben mit vba

Forumthread: andere zelle färben mit vba

09.10.2008 18:29:00

Frank

Hallo Profis
Ich habe folgendes Problem:
Ich habe beispielsweis von a3:ah3 unterschiedliche Werte (N,S,F,T), nun möchte ich das die jeweils darunterliegend Zelle entsprechend dem Wert eingefärbt wird, zB: gelb für N und blau für S. Mit direkter Eingabe bekomme ich das schon hin aber es sollte automatisch gehen. Kann mir da einer helfen?
Gruß Frank

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: andere zelle färben mit vba

09.10.2008 18:52:00

hary
AW: andere zelle färben mit vba

09.10.2008 19:13:00

Frank

AW: andere zelle färben mit vba

09.10.2008 18:52:00

hary

hallo Frank
Ich weiss ja nicht ob Du schon einen Code Hast? Frage zwei: wann soll es ausgefuehrt werden.
Change usw.
Hier ein Code


Dim rng As Range

Dim c As Range



Sub Gelb
Set rng = Range(Cells(3, 1), Cells(3, 34))
For Each c In rng
If c = "N" Then
c.Interior.ColorIndex = 6
End If
Next c
End Sub

Gruss Hary

AW: andere zelle färben mit vba

09.10.2008 19:13:00

Frank

Hallo Hary
Ich habe diesen


Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
'   Bereich der Wirksamkeit
Set RaBereich = Range("d10:ah10")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
For Each RaZelle In RaBereich
With Range(RaZelle.Address, RaZelle.Offset(1, 0).Address)
Select Case UCase(RaZelle.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben
Case "F"
' rot
.Interior.ColorIndex = 3
'.Font.ColorIndex = 0
' Schriftfarbe automatisch
'.NumberFormat = "General"
' Zellenformat Standard
Case "N"
' gelb
.Interior.ColorIndex = 6
'.Font.ColorIndex = 0
' Schriftfarbe automatisch
'.NumberFormat = "General"
' Zellenformat Standard
Case Is > 3
' grün
.Interior.ColorIndex = 4
'.Font.ColorIndex = 0
' Schriftfarbe Weiß
'.NumberFormat = ";;;"
' nicht sichtbar
Case Else
' Keine
.Interior.ColorIndex = xlNone
'.Font.ColorIndex = 0
' Schriftfarbe automatisch
'.NumberFormat = "General"
' Zellenformat Standard
End Select
End With
Next RaZelle
'    ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing
End Sub

Der geht ja aber nur bei direkter eingabe, er soll die farbe aber ändern sobal sich der wert ändert, auch ohne direkter eingabe.
aber schon mal danke für die super schnelle antwort
Frank

Beliebteste Forumthreads (12 Monate)

Forumthread: andere zelle färben mit vba

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread