Makrostart bei Wertänderung
Peter
wenn sich der Zahlenwert in Zelle J5 ändert, soll das Makro SpalteA starten. Leider funktioniert der folgende Code nicht:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim calS As XlCalculation
'Parameterauswahl
If Not Intersect(Target, Range("j5")) Is Nothing Then
calS = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Run "SpalteA"
Application.Calculation = calS
Application.EnableEvents = True
Exit Sub
End If
End Sub
Wer weiß, wie's richt sein muss?Danke.
Peter F.