bed. Formatie. >3 Zelländerung durch Formel
07.09.2004 20:56:52
Dirk
rivate
Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case 1
Target.Interior.ColorIndex = 2
Case "R"
Target.Interior.ColorIndex = 12
Target.Font.ColorIndex = 13
Case 3
Target.Interior.ColorIndex = 4
Case 4
Target.Interior.ColorIndex = 5
Case 5
Target.Interior.ColorIndex = 6
Case 6
Target.Interior.ColorIndex = 7
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Mein Problem:
Dies soll auch auf bereits BESTEHENDE, ältere Zelleninhalte auswirken bzw auf Zellen, die sich durch Formeln berechen lassen und nicht nur auf die Zelle, in der ich gerade die Eingabe tätige.
einmalige Schleife nach jeder Änderung ? Wie ?
Anzeige
