Makro automatisch ausführen
Jana
ich habe folgendes Makro:
Sub Formatierung()
Dim i
Dim c
For i = 11 To 24
For c = 10 To 82 Step 6
If Cells(i, c).Value Worksheets("Assumptions").Cells(14, 2).Value And Cells(i, c) = Worksheets("Assumptions").Cells(12, 2).Value Then 'größer als 20 _
dann rot
Range(Cells(i, c - 1), Cells(i, c)).Font.Color = RGB(255, 0, 0)
Else
Range(Cells(i, c - 1), Cells(i, c)).Font.Color = RGB(0, 0, 0) ' ansosnten blau
End If
Next c
Next i
End Sub
Der Zellinhalt in c ergibt sich durch eine einfach Berechnung. Diese läuft ebenfalls super.
Das Makro läuft an sich einwandfrei. Das Problem ist nur, dass wenn sich das Ergebnis der Berechnung ändert, die Formatierung nicht automatisch angepasst wird. Das Anpassen der Formatierung erfolgt erst, wenn ich das Makro wieder laufen lasse.
Wie kann ich dies ändern? Ich möchte, dass sofort eine Änderung der Formatierung vorgenommen wird.
Noch ein paar Infos:
Das Makro steht in dem Worksheet in dem die Berechnung vorgenommen wird.
Es handelt sich um Excel 2003.
Makros wurden erlaubt.
Hoffe jemand kann mir schnell weiterhelfen.
Viele Grüße
Jana
Anzeige