Clever-Excel-Forum

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

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

(02.02.2022, 13:25)Elex schrieb: [ -> ]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!

Korain

Elex

Korain