verwende von Hajo folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies *
'* 10.02.07 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://Hajo-Excel.de/
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("A7:A5000")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
For Each RaZelle In RaBereich
With RaZelle
Select Case UCase(.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben
Case "BESTELLEN"
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
Case "ERL."
.Interior.ColorIndex = 4
.Font.ColorIndex = 1
Case "LIEF. OFFEN"
.Interior.ColorIndex = 6
.Font.ColorIndex = 1
Case "GELIEF."
.Interior.ColorIndex = 45
.Font.ColorIndex = 1
Case Else
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End Select
End With
Next RaZelle
Set RaBereich = Nothing
End Sub
Dieser ist natürlich für mich angepasst.
Funktioniert soweit ganz gut, aber in Spalte A wird diese Formel verwendet:
=WENN(BH7>1;"ERL.";WENN(AJ7="JA";"GELIEF.";WENN(AE7>1;"LIEF. OFFEN";WENN(AE7
Wenn ich eine neue Zeile eingebe, wird die Formatierung auch angewandt, In Spalte A steht "BESTELLEN" und die Formatierung springt auf rot.
Wenn ich nun aber in Spalte AE7 meine Datumseigabe mache, springt Spalte A auf Staus "LIEF. OFFEN" aber die Formatierung ändert sich nicht.
Wenn ich es richtig verstehe, ändert sich die Formatierung nur, wenn sich was in Spalte A verändert.
Aber genaugenommen, passiert ja da nix, weil die Formel sich ja nicht ändert, nur das Ergebniss.
Was muss ich tun damit die Formatierung sich dementsprechend ändert?
Habe mir auch schon überlegt, das ich weitere Spalten oben bei SET RaBereich einfüge, schaffe es aber nicht, das die Formatierung auf Spalte A angewandt wird.
Wer kann mir helfen? Möchte eigentlich gerne den Code von Hajo verwenden, weil es bei der zu erwatenden Datenmenge der "schnellste" ist, was ich gefunden habe.
Schnellste in dem Sinne, das ich nicht ewig warten muss bis er 5000 Zeilen abgearbeitet hat (hatte ich auch schon verwendet)
LG TopDog