irgendwie komme ich nicht mehr in den alten Beitrag vom 22.06. Das mit der bedingten Formatierung geht nur bedingt und dauert einfach zu lange. Ist leider auch nicht kompatibel mit einer älteren Version von Excel. Deshalb:
Ich würde gern abhängig vom Wert in dem Bereich C4:C10 eine Formatierung für C4:C10 und B4:B4 vornehmen. Die Formatierung soll für beide Bereiche dann gleich sein.
Dies soll für verschiedene Bereiche funktionieren, wobei sich die Spalten jeweils um 4 verschieben. Der nächste Bereich ist dann also G4:G10.
Ich müsste noch irgendwie Index + 4 einbringen.
Kann mir noch jemand helfen, dass Makro entsprechend zu erweitern.
Private Sub Worksheet_Calculate()
Dim i As Integer
Dim c As Integer
For i = 4 To 10
For c = 3 To 15
If Cells(i, c).Value = Worksheets("Annahmen").Cells(4, 2).Value And Cells(i, 3) = Worksheets("Annahmen").Cells(3, 2).Value Then
Cells(i, c).Font.Color = RGB(255, 0, 0) And Cells(i, c - 1).Font.Color = RGB(255, 0, 0) ' _
rot
Else
Cells(i, c).Font.Color = RGB(0, 0, 0) ' schwarz
End If
Next i
Next c
End Sub
Hier noch die Datei zur Veranschaulichung...
Gruß Jana