Worksheet_Change wird von bestimmter Excel-Datei deaktiviert

Ich habe ein sehr kniffliges Problem. Ich muss derzeit eine kleine Anpassung an einer relativ umfangreichen Excel-Datei (Datei A) vornehmen, die aber bereits vor ca. 2 Jahren von einer anderen Kollegin erstellt wurde, die aber nicht mehr bei uns arbeitet. Ich habe bereits mehrmals Sachen am VBA Code dieser Datei geändert, war alles relativ problemlos, aber jetzt stehe ich vor einem absoluten Rätsel:
Ich habe ein Sub geschrieben, das ausgeführt werden soll, wenn in einer bestimmten Zelle etwas geändert wird, allerdings scheint "Worksheet_Change" in dieser Datei nicht zu funktionieren und ich komme nicht drauf, warum.
Ich habe folgenden Code im Tabellenblatt selber stehen:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("G22")) Is Nothing Then Exit Sub

    Worksheets("Bestellformular").Cells(24, 7).Value = "Erfolgreich!"

End Sub

Wenn ich jetzt etwas in die Zelle G22 schreibe, sollte er eigentlich "Erfolgreich!" in die Zelle G24 schreiben, es passiert aber absolut nichts, nichtmal eine Fehlermeldung.
Jetzt aber zum absolut mysteriösem Teil der Geschichte:
Wenn ich den selben Code in einem völlig neuen, leeren Excel Dokument (Datei B) verwende, funktioniert er einwandfrei. Aber: sobald ich Datei A, die ich eigentlich bearbeite, öffne und etwas in Zelle G22 schreibe, und er eigentlich den Code ausführen sollte, aber nichts passiert, funktioniert der Code auch in allen anderen offenen Excel-Dateien nicht mehr! Erst nachdem ich alle offenen Excel-Dateien schließe, funktioniert es zumindest in Datei B wieder.
Wenn ich Datei A nur öffne, macht das noch nichts, es funktioniert in Datei B weiterhin, erst sobald ich in Datei A etwas in Zelle G22 schreibe, funktioniert es in keiner offenen Excel-Datei mehr.
Ich kann jetzt leider Datei A hier nicht hochladen, weil sie sehr viele firmeninterne Daten enthält, und ich weiß, das macht die Sache etwas komplizierter, aber vielleicht hat ja trotzdem jemand eine Ahnung, was da das Problem sein könnte und kann mir helfen?
Danke schonmal!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G22")) Is Nothing Then Worksheets("Bestellformular").Cells(24, 7).Value = "Erfolgreich!" End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler Const APPNAME = "Worksheet_Change" If Not Intersect(Target, Range("G22")) Is Nothing Then Application.EnableEvents = False Cells(24, 7).Value = "Erfolgreich!" End If '*** Fehlerbehandlung Err.Clear Fehler: Application.EnableEvents = True If Err.Number > 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _ & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear End Sub

Hallo

ich sehe es gibt schon viele Antworten der Kollegen, ich habe noch nicht alle gelesen. Mach ich noch

Meine Erfahrung ist, "dumme eigene" Programmierfehler bei Worksheet_Change. Insbesondere mit Exit Sub!!
Bei MsgBox Meldungen, die das Programm abbrechen, springe ich üblichderweise mit Exit Sub aus dem Code raus.
Hat man aber vorher im Code - Application.EnableEvents = False - aktiviert, ist das ein katastrophaler Fehler!!
Wer schaltet die Events dann bitte wieder ein??? Exel kann nicht logisch denken, handelt sturheil nach anweisungen!

Schliesst man die Datei und öffnet sie wieder, scheint alles wieder normal zu funktionieren.
Bis man die Events wieder auf False setzt!! Das kann auch in einem Code in einem normalen Modul sein.
Prüfe bitte mal alle Events Befehle, ob du da aus dem Code rausspringst, ohne sie wieder einzuschalten.

mfg Piert

Sub EntwicklerModus() Dim ws As Worksheet For Each ws In Worksheets Call ws_Unprotect("Startseite") Call ws_Unprotect("Bestellformular") Call ws_Unprotect("Hilfeseite") Call ws_Unprotect("Berechtigungen") Next ws Application.DisplayFullScreen = False Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)" Application.DisplayFormulaBar = True ActiveWindow.DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True ActiveWindow.DisplayWorkbookTabs = True Sheets("Startseite").Select End Sub

Sub ws_Unprotect(ParamArray Tabellenblaetter()) Dim ws For Each ws In Tabellenblaetter Worksheets(ws).Unprotect Next ws Application.ScreenUpdating = False Application.EnableEvents = False End Sub

Beliebteste Forumthreads (12 Monate)

Worksheet_Change wird von bestimmter Excel-Datei deaktiviert

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheet_Change wird von bestimmter Excel-Datei deaktiviert

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread