Application.EnableEvents = False/True

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rolf!
Eine Möglichkeit!

' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
If Target.Column <> 3 Then Exit Sub
'#################################################
If blnRun Then 'hier den Wert von blnRun abfragen
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
End If '########################################
'#################################################
If Target.Column <> 3 Or Target.Row < 3 Then Exit Sub
Cells(Target.Row, 21).Value = Application.Run("gibZeit", Range("D1"))
Beep
End Sub

' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public blnRun As Boolean

Sub VorReinkopieren()
blnRun = False
Aktualisieren
blnRun = True
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)

Private Sub Worksheet_Change(ByVal Target As Range) Dim s As String If Target.Column <> 3 Then Exit Sub If blnRun Then 'hier den Wert von blnRun abfragen ' verstehe ich leider nicht 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 End If '######################################## ' Bereich 2 soll immer aktiviert sein If Target.Column <> 3 Or Target.Row < 3 Then Exit Sub Cells(Target.Row, 21).Value = Application.Run("gibZeit", Range("D1")) Beep End Sub

Hallo Rolf!
Mit "Application.EnableEvents = False" kannst du in diesem
Fall nicht arbeiten, weil dann auch der zweite Teil deines
Codes nicht ausgeführt wird!
Deshalb hab ich die Variable "blnRun" deklariert.
Diese wird beim eintritt des Ereignises bgefragt, und wenn
WAHR wird der gesamte Code durchlaufen, wenn FALSCH wird
nur der zweite Teil abgearbeitet.

' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit

Private Sub Workbook_Open()
blnRun = True
'stellt sicher, das beim öffnen der Mappe die
'Makros in Tabelle1 ausgeführt werden.
End Sub

' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
If Target.Column <> 3 Then Exit Sub
'Der nachfolgende Abschnitt wird nur ausgeführt wenn
' blnRun = True
If blnRun Then
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
End If
'#######
'Der folgende Abschnitt wird immer ausgeführt!
' Bereich 2 soll immer aktiviert sein
If Target.Column <> 3 Or Target.Row < 3 Then Exit Sub
Cells(Target.Row, 21).Value = Application.Run("gibZeit", Range("D1"))
Beep
End Sub

' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public blnRun As Boolean

Sub VorReinkopieren()
blnRun = False 'setzt blnRun auf Falsch
Aktualisieren
End Sub

Sub NachReinkopieren()
blnRun = True 'setzt blnRun auf Wahr
Aktualisieren
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)

Beliebteste Forumthreads (12 Monate)

Application.EnableEvents = False/True

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

46 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Application.EnableEvents = False/True

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

46 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread