VBA - Frage

[Korain]

Hallo zusammen,

folgende Situation:
Ich habe einen Import aus einem anderen Worksheet in VBA erstellt, habe aber auch auf dem Worksheet, wo ich die Daten einfüge ein Makro, die sich automatisch bei Veränderungen aktiviert.
Leider wird durch dieses Makro die Performance sehr schlecht. 

Das einzige, was mir eingefallen ist, dass ich beim Import direkt der Bool Variable 'vermeidung' einen Wert zuweise. Leider klappt dies auch nicht wirklich, da die Performance verloren geht, sobald sich der sub jedes mal aktiviert.

Code:

'Datum automatisch aktualisieren
Private Sub Worksheet_Change(ByVal Target As Range)
    If vermeidung = True Then Exit Sub
   
    Dim isect As Range
    Dim isect2 As Range
   
            'Datum
            Set isect = Application.Intersect(Target, Range("AO6:AP20000"))
            If Not isect Is Nothing Then Cells(Target.Row, 43) = CDate(VBA.Date)
       
            'Datum
            Set isect2 = Application.Intersect(Target, Range("AS6:AU20000"))
            If Not isect2 Is Nothing Then Cells(Target.Row, 48) = CDate(VBA.Date)
End Sub

[Elex]

Hey

Du setzt da an der falschen Stelle an. Dein Import einfach so ergänzen.

Code:

Public Sub Kopieren()

On Error GoTo Fehler
Application.EnableEvents = False


'hier dein Code


Fehler:
Application.EnableEvents = True


End Sub

Gruß Elex

[Korain]

Hey

Du setzt da an der falschen Stelle an. Dein Import einfach so ergänzen.

Code:

Public Sub Kopieren()

On Error GoTo Fehler
Application.EnableEvents = False


'hier dein Code


Fehler:
Application.EnableEvents = True


End Sub

Gruß Elex

Elex ich danke dir, dass ich da nicht selbst drauf gekommen bin :D

Vielen Dank!