Tabelle aktualisieren nach Werteänderung in VBA?
22.02.2005 18:49:56
Andi
ich habe in mehreren Tabellen über VBA bedingte Formatierungen über die CASE-bedingungen vorgenommen. Wenn ich nun in einer entsprechenden Zelle eine 'Farbbedingung' händisch eintrage, klappt das ganze prima. Hole ich mir aber eine solche 'Farbbedingung' aus einem anderen Tabellenblatt über eine Wenn-Funktion, so tut sich zunächst nichts. Erst wenn ich dann wiederrum eine händische Eingabe folgen lasse, werden die anderen Zellen wie gewollt farblich markiert. Ich bräuchte also so etwas wie eine 'Aktualisierung' innerhalb des VB-Codes, der bei Werteveränderungen über Formel die Farbwerte neu zuweist.
Gibt es da eine Möglichkeit?
Danke für die Hilfe
Andreas
Sub Zellenfarbe()
Dim rngZelle As Range, strText As String
ActiveSheet.Range("A1:M100").Interior.ColorIndex = 0
For Each rngZelle In ActiveSheet.Range("A1:A100")
Select Case rngZelle.Value
Case "L1"
Range("A" & rngZelle.Row & ":M" & rngZelle.Row).Interior.ColorIndex = 3
Case "L2"
Range("A" & rngZelle.Row & ":M" & rngZelle.Row).Interior.ColorIndex = 4
Case "L3"
Range("A" & rngZelle.Row & ":M" & rngZelle.Row).Interior.ColorIndex = 5
End Select
Next
End
Sub
Anzeige