AW: Dann ist Hajo's Frage entscheidend...
10.01.2008 12:07:24
ingUR
Hallo, @selma,
wie bereist durch die Antworten der Beteiligten hier deutlich wird, ist es entscheidend, wann immer die Veränderungen ausgelöst werden sollen bzw. wie sie ausgelöst werden sollen.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, bgC As Integer, refC As Integer, refCoffs As Integer, lastR As Long
refC = 5 'hier 5 für Spalte E; für T wäre 20 zu setzen
refCoffs = 3 ' drei Spalten weiter nach rechts
If Target.Column = refC Then
For Each rng In Range(Cells(1, refC), Cells(Cells(65535, refC).End(xlUp).Row, refC))
If rng.Interior.ColorIndex = 43 Then bgC = 43 Else bgC = 2
rng.Offset(0, 3).Interior.ColorIndex = bgC
Next
End If
End Sub
Dies ein Grunfgerüst, dass immer dann eine Anpassung der Hintergrundfarbe an der Wahlspalte an die Referenzspalte vornimmt, wenn in dieser eine Änderung erfolgte. dieses sollte auch dann finktionieren, wenn die Änderung übereine bedingte Formatierung erfolgt. Zu entscheiden ist allerdings dann, welche Farbe gestzt werden soll, wenn die Referenzfarbe von 43 auf einen anderen Wert wechselt. Hier habe ich den weißen Zellenhintergrung gewählt.
Gruß,
Uwe