Hallo,
1. wie der Kollege schon meinte, Bereiche kopieren wo es geht.
2. du verwendest ja ordentllich Variablen für die Tabellenblätter, also wksQ und wksZ.
Das heist du kannst dir die ganzen wksQ.Activate sparen. Selektionen benutzt du ja nicht, was gut ist.
3. ich würde noch das ScreenUpdating ausschalten. Also am Anfang vom Code folgendes einfügen
Application.ScreenUpdating = False
4. Wenn sonst noch viele Formeln auf den Blättern sind, oder Makros über Change-Events enthalten sind,
könnte man auch noch diese Events deaktivieren.
Application.EnableEvents = False
Am Ende das EnableEvents wieder auf True setzen.
|