Macro zuckelt trotz ScreenUpdating
02.02.2014 08:12:13
Benedikt
Nachfolgender Code wurde vor Weihnachten für Version 2010 neu geschrieben und läuft einwandfrei. Die Freude scheint aber wieder einmal von kurzer dauer: beim testen in Excel 2013 zuckelt das Macro, die Funktionen werden zwar ausgeführt aber das zuckeln gewinnt nicht wirklich einen Preis. Was verhält sich in 2013 anders als in 2010, das man gezwungen wird, die ganzen Codes von neuem anzupassen?
(Code wurde im Dezember von Hans Herber neu für 2010 geschrieben da die Version aus 2007 mit zuviel aktivate und select zum Absturz führte).
Wie kann ich dem zuckeln entgegenwirken?
Vielen lieben Dank für Hinweise
Option Explicit
Sub Test()
Dim wkb As Workbook
Dim wksOfferte As Worksheet, wksTitle As Worksheet
Dim iRowT As Integer
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
Application.EnableEvents = False
Set wkb = Workbooks("Tempoff.xlsm")
Set wksOfferte = wkb.Worksheets("Offerte")
Set wksTitle = wkb.Worksheets("Titel")
iRowT = wksOfferte.Cells(wksOfferte.Rows.Count, 3).End(xlUp).Row + 2
If iRowT 0 Then MsgBox Err & ": " & Error
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub