Application.EnableEvents = False/True
11.04.2004 19:25:01
Rolf St.
mit folgendem Makro wird die Ausführung der Makros im Tabellenblatt deaktiviert.
Sub VorReinkopieren()
Application.EnableEvents = False
Aktualisieren
End Sub
und mit folgendem Makro wieder aktiviert:
Sub VorReinkopieren()
Application.EnableEvents = True
Aktualisieren
End Sub
Bereich1 ' soll deaktiviert werden
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
If Target.Column <> 3 Then Exit Sub
s = Target.Address
FormelnFix (Target.Address)
Aktualisieren
Target.Offset(1, 0).Select
If Intersect(Target, [C3:C1000]) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
If IsNumeric(Target) And Target > 0 And Target <= 1000 Then
End If
Bereich 2 ' soll weiterlaufen
If Target.Column <> 3 Or Target.Row < 3 Then Exit Sub
Cells(Target.Row, 21).Value = Application.Run("gibZeit", Range("D1"))
Beep
End Sub
Wie ist es möglich, das Bereich 2 auch nach der Deaktivierung weiter ausgeführt wird?
Vielen Dank für eure Hilfe!!
Tschüß
Rolf