Makro verbraucht zuviel Arbeitsspeicher !!!
28.06.2004 16:30:00
ralle
Habe folgendes Problem:
Habe mehrere Makros geschrieben, die nacheinander mit dem Befehl Call aufgerufen werden. Nach einer bestimmten Zeit öffnet sich ein Fenster und es wird mir mittgeteilt, dass nicht genug virtueller Speicher zur Verfügung steht. Den virtuellen Speicher habe ich daruafhin auf 2.2 GB erhöht und trotzdem kommt diese Meldung. Habe daraufhin die Makros nach und nach abspielen lassen und dabei sind mir zwei Makros aufgefallen, bei denen sich der Speicher drastisch erhöht. Nachfolgend die zwei Makros:
MAKRO1:
Sub Wiederholungszeilen()
Dim wks as worksheet
for each wks in worksheets
wks.select
with wks.pagesetup
.printtitlerows = "$1:$8"
.printtitlecolumns = ""
End with
Next
End Sub
MAKRO2:
Sub Kopfzeile()
Dim wks as worksheet
for each wks in worksheets
wks.select
Activesheet.Pagesetup.leftheader ="Muster-GmbH * Musterstraße * Musterort"
Activesheet.pagesetup.rightheader = "&D"
Activesheet.pagesetup.printquality = 600
Activesheet.pagesetup.zoom = 70
Next
End Sub
Kann mir jemand sagen warum Excel soviel speicherplatz benötigt?
Gruß und Danke
ralle