Worksheet_Change austricksen

[sharky51]

Hallo zusammen,

Ihr könnt mir sicherlich mal wieder helfen.

Ich fülle mittels VBA ein Tabellenblatt (Tabelle1) in einer Arbeitsmappe mit Daten aus einem anderen Tabellenblatt...alles gut soweit.
Wenn ich einen neuen Datensatz in die Tabelle1 übertragen will wird zuerst der alte Datensatz komplett gelöscht und dann überschrieben...auch soweit so gut.
Für verschiedene Auswertungen in dieser Tabelle1 habe ich nachträglich ein "Private Sub Worksheet_Change(ByVal Target As Excel.Range)" - Makro eingefügt...nochmal soweit so gut.

Wenn ich jetzt einen neuen Datensatz generieren möchte meckert das Worksheet_Change-Makro an der Stelle weil ja die Tabelle noch leer ist und nichts in die Tabelle eingetragen wurde:

   Set raBereich = Intersect(Target, Range(Cells(1, ActiveSheet.AutoFilter.Range(1).Column), _
       Cells(1, ActiveSheet.AutoFilter.Range(1).Column + ActiveSheet.AutoFilter.Filters.Count - 1)))

Jetzt meine Frage: Kann man das Worksheet_Change-Makro zum Zeitpunkt der Datengenerierung außer Kraft setzen und wenn ja wie?

Vielleicht habt Ihr eine Idee wie das Problem zu lösen ist.

Vielen Dank!

[pefeu]

Hallo,

verwende Application.EnableEvents = False/True um das Change Ereignis zeitweise auszuschalten.
Aber unbedingt wieder auf True setzen, damit die Makros aktiv bleiben.

Gruß Peter

[sharky51]

Hallo Peter,

danke....und wo muss ich das setzen?
Zu Beginn meiner Datenübertragung?

[sharky51]

Hallo Peter,

danke....und wo muss ich das setzen?
Zu Beginn meiner Datenübertragung?

Peter,

hab die Stellen gefunden wo das rein muss.

Vielen Dank für Deinen Tipp....der Sonntag ist gerettet!