Beschleunigungscode aus Archiv ergänzen
12.05.2004 15:20:40
thomas
im Archiv habe ich von K.Rola folgenden Code gefunden. Nun möchte ich den einbauen. Ich muss dazu aber noch das ENDE Makro schreiben. Wie könnte das aussehen? Kommt das dann in ein Modul, richtig? (nicht aufs Blatt)
Beste Grüsse
thomas
Sub deinMakro()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
On Error GoTo ENDE
''dein Code
ENDE:
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub