Farbe ändern mit VBA
30.07.2011 09:52:41
ing.grohn
Hallo Forum,
ich habe eine Tabelle in der die Spalten über bedingte Formatierungen unterschiedlich gefärbt werden.
Möchte ich die Hintergrundfarbe mit der Bedingung 2 mit VBA von rot auf grün färben.
sollte mit:
Range("C11:i33").FormatConditions(2).Interior.ColorIndex = Farbe (=4 bzw 3)
Nur: er läßt die Spalte C weg!!???
und wenn das ganze über alle Wochentage laufen lasse (siehe Schleife im Beispiel), wird nicht jeder Tag gefärbt, sondern der Montag (aber ohne Spalte C!!), der Dienstag, der Donnerstag und der Samstag!
Hallo, was soll das??
Kann jemand helfen?
hier die Mappe:
https://www.herber.de/bbs/user/75946.xls
Im Vorhinein schon vielen Dank
Mit freundlichen Grüßen
Albrecht
Hier noch mal der Code:
Sub FarbebedingteFormat()
Dim I As Integer
Dim N As Integer
Dim Farbe As Integer
'Farben: 3=rot, 4=grün, 6=gelb, 38=leicht lila
Farbe = 4
N = 0
For I = 1 To 6
'Range("C11:i33").FormatConditions(2).Interior.ColorIndex = Farbe
Range(Cells(11 + N, 3), Cells(33 + N, Cells(2, 5).Value)). _
FormatConditions(2).Interior.ColorIndex = Farbe
N = N + 24
Next I
End Sub