VBA Zellen je nach Inhalt einfärben
jens
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Sheets("Reservierung (3)").Select
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("B8:P48")
'Set RaBereich = Range("N2").UsedRange
For Each RaZelle In RaBereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case Is = ""
' Keine
RaZelle.Interior.ColorIndex = xlNone
Case Is = [Artikel!E6]
' grau
RaZelle.Interior.ColorIndex = 15
Case Is = [Artikel!E2]
' rot
RaZelle.Interior.ColorIndex = 3
Case Is = [Artikel!E3]
' blau
RaZelle.Interior.ColorIndex = 42
Case Is = [Artikel!E4]
' gelb
RaZelle.Interior.ColorIndex = 27
Case Is = [Artikel!E5]
' grün
RaZelle.Interior.ColorIndex = 4
Case Is = [Artikel!E6]
RaZelle.Interior.ColorIndex = 8
Case Is = [Artikel!E7]
' blau
RaZelle.Interior.ColorIndex = 38
Case Else
' Keine
RaZelle.Interior.ColorIndex = xlNone
End Select
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
Gibt es etwas besseres als SelectionChange? Mir wäre es lieber, es würde gemacht, wenn man das Blatt aktiviert
Und jetzt muß ich eigentlich immer die Spalte links und rechts gleich formatieren wie die in der Mitte - Beispiel:
Wenn in C8:C48 ein Case zutrifft dann soll B8:B48 und D8:D48 auch so eingefärbt werden, das gleiche dann für F = E+G, I = H+J, L = K+M, O = N+P
Weiß jemand wie man das einrichtet?
Vielen Dank und viele Grüße Jens