Worksheet_Change
29.08.2008 10:28:00
Peter
ich habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim calS As XlCalculation
If Not Intersect(Target, Range("a7:ez800")) Is Nothing Then
calS = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.Run "EingangsstempelEin"
Application.Calculation = calS
Application.EnableEvents = True
End If
End Sub
Der funktioniert aber nur bei Änderungen im definierten Range. Zu solchen Änderungen scheint aber nicht das Löschen des Zellinhaltes zu gehören, denn dann funktioniert dieser Code nicht.
Kann mir jemand sagen, wie der Code dann lauten müsste ?
Danke.
Viele Grüße,
Peter F.