Do Loop Schleife für PageSetup.Zoom fehlerhaft
17.07.2013 18:47:17
Andreas
um Seiten standardisiert einzurichten habe ich mir heute eine Do Loop Schleife erstellt, die den Zoom im PageSetup eigenständig nach oben oder unten korrigiert, bis eine bestimmte Anzahl an Seiten dabei herauskommt. Das funktioniert jedoch nur, wenn ich auf die untere Anweisung (Loop) einen Haltepunkt setze und die Prozedur Schritt für Schritt ausführe. Sobald 2 Seiten Ausdehnung erreicht sind, wird die Exit Do Option im Select Case gezogen. Wenn ich aber die Prozedur ohne Haltepunkt durchlaufen lasse, dann wird der Zoom so weit reduziert bis der Debugger anspringt? Auch ein DoEvents hat keine Abhilfe geschaffen. Warum funktioniert es, wenn es manuell verzögert ist, aber nicht, wenn es komplett durchlaufen soll? Ich bin etwas ratlos und würde mich über Rückmeldung aus dem Forum bzgl. etwaiger Gründe für dieses eigenartige Verhalten sehr freuen.
https://www.herber.de/bbs/user/86426.xlsm
Beste Grüße, Andreas Hanisch