Farbe ändern mit VBA | Herbers Excel-Forum

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 For I = 11 To 131 Step 24 Range(Cells(I, 3), Cells(22 + I, 2 + Cells(2, 5).Value)).FormatConditions(2).Interior. _ ColorIndex = Farbe Next I End Sub

Hallo Luc,
sicher, es hatte schon etwas mit der bedingten Formatierung zu tun.
Ich wollte alle Felder von Rot auf Grün umfärben mit VBA umfärben (insgesamt 25*23*6 Felder). Dazu hatte ich eine Schleife über alle Felder laufen lassen.
Allerdings wurden nicht alle Felder gefärbt (in 2010) oder mit einer Fehlermeldung (2003) beendet.
Einer im Forum meinte, irgend etwas sei mit den bedingten Formaten nicht korrekt.
Ich hab dann für alle Zellen das bedingte Format gelöscht, dann DEINE Formel eingetragen (mit viel Konzentration) und entsprechend die Formate übertragen und nun gehts. Eigentlich ist das Thema jetzt erledigt. Interessant wäre nun noch die Frage, ob man das ganze auch mit 2 Unterbrechungen (Gelb) realisieren könnte!!
Vielleicht gibts Du dafür noch maln Kommentar oder Lösung.
Was meinst Du mit "Du bist auf meine Komfortlösung nicht eingegangen"??
Ich wünsche einen schönen Abend.
Mit freundlichen Grüßen
Albrecht

Beliebteste Forumthreads (12 Monate)

Farbe ändern mit VBA | Herbers Excel-Forum

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread