Sheets("RohReihe").Select
Range("AA503:AD10501").Select
Selection.ClearContents
Range("A1").Select
Es soll im Prinzip nur der Bereich von AA503 bis AD10501 gelöscht werden (Zellen sind dann leer)
Kann man hier etwas beschleunigen?
Sheets("RohReihe").Range("AA503:AD10501").ClearContents
das sollte auch recht schnell gehen.With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
'...hier dein Code
With Application
.EnableEvents = True
.Calculation=xlCalculationAutomatic
End With
Und auch das sollte bei VBA gut bekannt sein.