Berechnungen für alle Tabellenblätter

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If ActiveSheet.Name "Tabelle1" Or "WE" Or "Vorlage" Then With ActiveSheet Dim a As Integer, b As Integer, c As Integer a = Target.Row If Target.Row > 1 Then

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim a As Integer, b As Integer, c As Integer Select Case ActiveSheet.Name Case "Tabelle1", "WE", "Vorlage" Case Else a = Target.Row if Target.Row > 1 then usw End Select

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim a As Long Select Case LCase(Sh.Name) Case "we", "tabelle1", "vorlage" 'nix passiert Case Else On Error GoTo ERREXIT Application.EnableEvents = False a = Target.Row If a > 1 Then 'Code End If End Select ERREXIT: Application.EnableEvents = True End Sub

Hi
du solltest beachten, dass sich die Eventmakros rekursiv selbst aufrufen können.
dh wenn du im Change-Event einen Tabellenwert änderst, wird das Change-Event erneut mit dem neuen Target aufgerufen.
damit das ursprüngliche Change-Event sauber weiter laufen kann wenn das neue Change-Event durchgelaufen ist, werden die Variablenwerte auf den Stapelspeicher gelegt, so dass jedes Change-Event mit seinen eigenen Variablen arbeiten kann und es kein durcheinander gibt.
Das Problem entsteht, wenn sich die Change-Events in einer Endlossschleife immer neu aufrufen. Dann läuft der Stapelspeicher irgendwann voll, weil für jeden Aufruf die Variablen auf den Stapelspeicher gelegt werden.
Was du dagegen tun kannst, wurde dir von Rudi schon gezeigt:
führe die Aktion Application.EnableEvents = False aus.
nach diesem Befehl werden keine Eventmakros mehr ausgeführt, dh du kannst im Change-Event einen Wert ändern, ohne dass das Change-Event erneut ausgeführt wird.
du darfst nur nicht vergessen, diese Einstellung vor Makroende wieder zurückzunehmen:
Application.EnableEvents = True , denn diese Einstellung bleibt bei Makroende erhalten und wird nicht automatisch zurückgesetzt.
Dh wenn das Application.EnableEvents = True unterbleibt, funktioniert deine Datei nicht mehr.
Sollte das mal beim Testen oder bei einem Fehlerabbruch passieren, kannst du den Befehl auch im Direktfenster ausführen, um die Events wieder zu aktivieren.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Berechnungen für alle Tabellenblätter

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Berechnungen für alle Tabellenblätter

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread