|
Jetzt ist doch noch eine Frage aufgekommen:
Wenn ich deinen Code in dem Editor einsetze und ausführe, erscheint ein Fenster 'Makros', dort soll ein Markoname reingeschrieben werden.
Ich nenne es TEST. Danach wird ein Modul eingefügt, in dieses Modul setze ich wiederum den Code ein und definiere die Variable sngAbweichung.
Jetzt kommt eine Fehlermeldung, das ein End Sub erwartet wird, was aber dort ist:
Option Explicit
Sub TEST()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then 'Eingabe in Spalte I
sngAbweichung = (Target.Value - Target.Offset(0, -2).Value) / Target.Offset(0, -2).Value * 100
If Abs(sngAbweichung) >= 10 Then Target.Font.Color = vbRed Else Target.Font.ColorIndex = xlAutomatic
ElseIf Target.Column = 7 Then 'Eingabe in Spalte G
sngAbweichung = (Target.Offset(0, 2).Value - Target.Value) / Target.Value * 100
If Abs(sngAbweichung) >= 10 Then Target.Offset(0, 2).Font.Color = vbRed Else Target.Offset(0, 2).Font.ColorIndex = xlAutomatic
End If
End Sub
End Sub
Wo liegt der Fehler?
|