Supportnet / Forum / Tabellenkalkulation
VBA - Seitenansicht; Fusszeile
Frage
Guten Morgen!
Per VBA wird der aktuelle Dateiname in einem Blatt eingefügt.
Wird nun die Seitenansicht aufgerufen, so läuft das Makro korrekt durch.
Leider hängt sich Excel jedoch nach dem betätigen des Buttons "Schließen" auf.
Ich habe das Blatt auf zwei PCs (Office2000/Office2003) ausprobiert. --> 2 x gleiches unerfreuliches Ergebnis.
Vielleicht hat jemand einen Tipp für mich woran es liegen könnte und was ich tun muss, damit der Code einwandfrei läuft.
Hier meine Musterdatei:
[url]http://www.file-upload.net/download-1319310/Test.XLS.html[/url]
Ciao
Tom
Antwort 1 von nighty
hi tom
die datei duerfte kaputt sein,nachdem ich das makro in eine neue datei aufnahm lief die seitenansicht korrekt
dann viel mir auf das du ereignisse abschaltest aber nicht wieder einschaltest :-))
gruss nighty
die datei duerfte kaputt sein,nachdem ich das makro in eine neue datei aufnahm lief die seitenansicht korrekt
dann viel mir auf das du ereignisse abschaltest aber nicht wieder einschaltest :-))
gruss nighty
Antwort 2 von coros
Hallo Tomschi,
lösch im VBA-Projekt "DieseArbeitsmappe" und im Makro "Pfad_in_Fußzeile" überall die Zeile
heraus. Die brauchst Du nicht, da man damit eigentlich nur bei Makros die Bidlschirmaktualisierung ausschaltet, um keine Einzelschritte bei Makros zu sehen. Da Du aber die Seitenasicht aufrufst, benötigst Du dieses nicht. Wenn Du das alles rauschgelöscht hast, sollte es funktionieren.
Dann noch eine Frage: Wozu führst Du in "DieseArbeitsmappe" den Befehl "Calculate" aus?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
lösch im VBA-Projekt "DieseArbeitsmappe" und im Makro "Pfad_in_Fußzeile" überall die Zeile
Application.ScreenUpdating = Falseheraus. Die brauchst Du nicht, da man damit eigentlich nur bei Makros die Bidlschirmaktualisierung ausschaltet, um keine Einzelschritte bei Makros zu sehen. Da Du aber die Seitenasicht aufrufst, benötigst Du dieses nicht. Wenn Du das alles rauschgelöscht hast, sollte es funktionieren.
Dann noch eine Frage: Wozu führst Du in "DieseArbeitsmappe" den Befehl "Calculate" aus?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 3 von nighty
hi coros :-)
jojo das wae es ja mal wieder *grummel*
gruss nighty :-))
jojo das wae es ja mal wieder *grummel*
gruss nighty :-))
Antwort 4 von Tomschi
Wünsche allseits einen wunderschönen guten Morgen!
DANKE, dass Ihr mir Euer Wissen mal wieder zur Verfügung gestellt habt.
Ich habe nunmehr Application.ScreenUpdating = False herausgelöscht und in der Tat funktioniert alles einwandfrei.
Die Erklärung/den Grund warum ich diesen Befehl löschen soll verstehe ich zwar nicht 100%ig, aber es klappt auch so einwandfrei.
Calculate ist in der Echtdatei manchmal hilfreich.
In einer Zelle habe ich =ZELLE("dateiname") stehen.
Von Zeit zu Zeit kommt es vor, dass nach einem Wechsel des Blattes der Pfad nicht korrekt aktualisiert wird.
Daher habe ich vor dem Drucken Calculate eingebaut.
Falls man voneinander nicht mehr liest, so wünsche ich Euch, Euren Familien, Euren Freunden und der gesamten Supportnet-Community ein Frohes Fest und viel Glueck und Gesundheit für 2009.
Tom
P.S.:
Application.Calculation = xlCalculationManual etc. benötigte ich nur zum Testen.
DANKE, dass Ihr mir Euer Wissen mal wieder zur Verfügung gestellt habt.
Ich habe nunmehr Application.ScreenUpdating = False herausgelöscht und in der Tat funktioniert alles einwandfrei.
Die Erklärung/den Grund warum ich diesen Befehl löschen soll verstehe ich zwar nicht 100%ig, aber es klappt auch so einwandfrei.
Calculate ist in der Echtdatei manchmal hilfreich.
In einer Zelle habe ich =ZELLE("dateiname") stehen.
Von Zeit zu Zeit kommt es vor, dass nach einem Wechsel des Blattes der Pfad nicht korrekt aktualisiert wird.
Daher habe ich vor dem Drucken Calculate eingebaut.
Falls man voneinander nicht mehr liest, so wünsche ich Euch, Euren Familien, Euren Freunden und der gesamten Supportnet-Community ein Frohes Fest und viel Glueck und Gesundheit für 2009.
Tom
P.S.:
Application.Calculation = xlCalculationManual etc. benötigte ich nur zum Testen.
Antwort 5 von coros
Hallo Tom,
freut mich, dass Dir helfen konnte. Danke auch für die Bewertung.
MfG,
Oliver
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
freut mich, dass Dir helfen konnte. Danke auch für die Bewertung.
MfG,
Oliver
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.