Und ansonsten Bernd,
schaltet man die Bildschirmaktualisierung usw. noch ab (Bei Array nicht notwendig):
Sub Beschleunigen()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
'Code....
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
VG KH
|