Code langsam, geht das schneller?
Dietmar
kann mir jemand sagen, ob und wie nachfolgendes Makro verbessert werden kann?
Meine letzte Maßnahme war vor der Ausführung die Berechnung auf manuell zu setzen; dennoch läuft das Makro noch recht langsam.
Danke vorab und allen noch einen schönen Sonntag
Viele Grüße
Dietmar aus Aachen
Sub DerNächsteBitte1()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="123"
Application.Calculation = xlCalculationManual
On Error GoTo Fehler
Range("M14:O129").Copy
Range("P14:R129").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P14:R129").Copy
Range("J14:L129").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P14:R129").ClearContents
Range("AH14:AJ129").Copy
Range("AK14:AM129").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AK14:AM129").Copy
Range("AE14:AG129").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AK14:AM129").ClearContents
Range("BC14:BE129").Copy
Range("BF14:BH129").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BF14:BH129").Copy
Range("AZ14:BB129").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("BF14:BH129").ClearContents
Range("G14:G129").ClearContents
Range("AB14:AB58").ClearContents
Range("AB61:AB129").ClearContents
Range("AW14:AW129").ClearContents
Range("AW9:AX10").ClearContents
Range("AZ1").FormulaR1C1 = "FALSE" 'neu seit 28.07.2009 wg. EC-Zahlungskontrollfeld
Range("F18").Select
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="123"
ActiveSheet.EnableSelection = xlUnlockedCells
Application.Calculation = xlCalculationAutomatic
Exit Sub
Fehler:
MsgBox "Fehler, bitte mit Administrator in Verbindung setzen", vbCritical, "Fehlermeldung"
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="123"
ActiveSheet.EnableSelection = xlUnlockedCells 'neu seit 14.6.2008, nicht bei Zahlenmeldung, da _
diese kopierbar sein muss
Application.Calculation = xlCalculationAutomatic
End Sub