färben einer Zelle erweitern
10.10.2008 06:54:00
Frank
Ich habe folgende Frage. Ich möchte mit VBA Zellen einfärben. Was ich ja auch soweit schon am Laufen habe. Nun möchte ich aber das die Zelle gleich unterhalb der gefärbten ebenfalls eingefärbt wird und das auch so bleit wenn ich etwas anderes hineinschreibe. Was muss ich tun damit ich die Einfärbung erweitern kann?
Also A1 hat zB. Den Wert N und die Zelle färbt ich ja auch schön Gelb nun soll A2 sich aber ebenfalls Gelb färben und so bleiben auch wenn ich in dieser Beispielsweise krank schreibe.
Habt ihr eine Idee?
Soweit bin ich:
Private Sub Worksheet_Change(ByVal Ziel As Excel.Range)
Dim Bereich As Range
Dim rngZelle As Range
Set Bereich = ActiveSheet.Range("a1:ai34")
For Each rngZelle In Bereich
Select Case rngZelle
Case "F"
rngZelle.Interior.ColorIndex = 22
Case "N"
rngZelle.Interior.ColorIndex = 36
Case "S"
rngZelle.Interior.ColorIndex = 17
Case "zs"
rngZelle.Interior.ColorIndex = 15
Case "o"
rngZelle.Interior.ColorIndex = 45
Case Else
rngZelle.Interior.ColorIndex = xlNone
End Select
Next
End Sub
Gruß Frank
https://www.herber.de/bbs/user/55935.xls