Farbe einer Zelle je nach Bedingung
25.11.2021 14:46:21
Mo
ich möchte in einer Tabelle ein Feld farblich je nach Fall ändern:
Es werden jeweils in einer anderen Tabelle jeder Tag als Datum verwiesen und jede Abteilung mit rot, gelb grün markiert. Ich habe acht Abteilungen in den Zeilen (7-14) und 31 Tage in den Spalten (C - AG).
Dabei sollen folgende Bedingungen beachtet werden:
Jede Abteilung grün -> Ausgabe grün
Sobald eine Abteilung gelb -> Ausgabe gelb
Sobald eine Abteilung rot -> Ausgabe rot
Hier ist mein bisheriger Code:
'Betriebsbereitschaft
Sub BetrB()
Dim x As Integer, n As Integer, i As Integer 'i für Zeilen, n für Spalten, x als counter
For n = 3 To 31
If Worksheets("0_480").Cells(1, 8).value = Worksheets("3_BetrB").Cells(6, n).value Then
x = Worksheets("3_BetrB").Cells(7, n).Interior.Color
End If
For i = 8 To 14
If Worksheets("3_BetrB").Cells(i, n).Interior.Color Danach sollen die Zeilen durch geganen werden. Hierbei wird der Farbcode der obersten Zelle an x übergeben. Grün: 10, gelb: 6, rot: 3.
Aufgrund der Abstufung, vergleiche ich die oberste Zeile immer mit der nächst tieferen. Falls der Farbcode Wert kleiner ist, wird x überschrieben.
Das heißt sobald ich einmal rot habe, wird x = 3 sein.
Am Ende sage ich, dass das gewünschte Feld dann die Farbe mit dem Farbcode x übernehmen soll.
Leider klappt das leider nicht so wie gewollt. Ich bekomme einen Überlauffehler in Zeile 5 bei x = ...
Hat jemand eine Idee und sieht vielleicht noch andere Fehler im Code?
LG