online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon Tomschi vom 16.12.2020, 09:44 Options

Lösung

VBA - Seitenansicht; Fusszeile

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:
http://www.file-upload.net/download-1319310/Test.XLS.html

Ciao

Tom


Antwort schreiben

Antwort 1 von nighty vom 16.12.2020, 14:39 Options

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

Antwort 2 von coros vom 16.12.2020, 19:45 OptionsLösung

Lösung
Hallo Tomschi,

lösch im VBA-Projekt "DieseArbeitsmappe" und im Makro "Pfad_in_Fußzeile" überall die Zeile

Application.ScreenUpdating = False

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.

Antwort 3 von nighty vom 16.12.2020, 20:38 Options

hi coros :-)

jojo das wae es ja mal wieder *grummel*

gruss nighty :-))

Antwort 4 von Tomschi vom 17.12.2020, 08:05 Options

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.

Antwort 5 von coros vom 17.12.2020, 19:07 Options

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.

Ähnliche Themen

VBA - Makros
Muro4ever  30.06.2007 - 151 Hits - 2 Antworten

VBA und "-00"
Trudi  03.07.2007 - 27 Hits - 2 Antworten

VBA
gropi  23.04.2008 - 50 Hits - 1 Antwort

VBA
Benjo_pont  03.07.2008 - 130 Hits - 2 Antworten

VBA
Chrissi_Li  21.08.2008 - 32 Hits - 5 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 16:59:01 2026