|
Guten Tag,
ich möchte folgenden Code ein wenig optimieren.
Grundsätzlich geht es darum, dass Werte in die Zellen I1 und G1 geschrieben werden.
Jetzt soll der Wert in G1 in rot gefärbt werden, wenn dieser Wert von dem Wert in I1, 10% abweicht.
Diese Funktion läuft bisher über eine Schaltfläche ab.
Funktioniert das auch ohne Schaltfläche?
Also das wenn man Werte in die betreffende Zellen schreibt, die Funktion automatisch abläuft.
Was müsste ich dann ändern?
Danke im Voraus
Hier der Code:
Sub pcWerteRot()
'=(I1-G1)/G1*100
Dim lngZeile As Long
Dim sngAbweichung As Single
lngZeile = 1
Do While Range("I" & lngZeile & "").Value <> ""
sngAbweichung = (Range("I" & lngZeile & "").Value - Range("G" & lngZeile & "").Value) / Range("G" & lngZeile & "").Value * 100
If Abs(sngAbweichung) >= 10 Then
Range("I" & lngZeile & "").Font.Color = vbRed
End If
lngZeile = lngZeile + 1
Loop
End Sub
|