Ereignisprozedur ausschalten mit Code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
Dim AktuellerWert
If Target.Address >= "$C$11" And Target.Address <= "$C$33" Then
For i = 11 To 33
If Cells(33, 3) <> 0 Then
AktuellerWert = Cells(33, 3)
Exit For
End If
If Cells(i, 3) = 0 Then
AktuellerWert = Cells(i - 1, 3)
Exit For
End If
Next
End If
Range("Aktuell") = AktuellerWert  'Hier wird die Prozedur erneut ausgelöst
End Sub