Makro

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Not IsNumeric(Target) Then Exit Sub 'erwartet Zahl, sonst Abbruch
If Target > 0 Then
MsgBox "Wert in A1 = größer Null"  'anstatt der Box Deinen Code einfügen
End If
End If
End Sub

Hallo Matthias L.,
kanns Du mir die Formel eventuell so umschreiben, das irgend ein Wort in A1 das Makro auslöst?