Ereignisprozedur ausschalten mit Code
10.07.2003 14:40:09
walterku
Ich habe eine Ereignisprozedur geschrieben, die leider ihr eigenes Ereignis wieder auslöst.
Wie kann ich die Ereignisprozedur vorübergehend ausschalten?
Hier die betreffende Prozedur:
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
Danke schon mal
Gruß Walter