application.statusbar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub tt() Dim i1 Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For i1 = 1 To 80000 Application.StatusBar = "Datensatz " & Format(i1, "0000000") '... hier geschehen weitere Aktionen DoEvents Next i1 Application.ScreenUpdating = True Application.StatusBar = False Application.Calculation = xlAutomatic End Sub

Hallo Franz,
den Code den ich zeigte habe ich getestet. Mit DoEvents dauerte er schon länger
und mein Eindruck war daß da das in der Statusbar länger sichtbar war und nicht so durchgehuscht
ist wie ohne DoEvents.
So wie du es schreibst scheint DoEvents nix zu bringen. Ist das sicher?
Zu dem "keine Rückmeldung"
Mir ist das sehr unklar, auch in XL2000. Es bedeute m:E. nur daß grad in den Momenten Win
oder sonstwer, vielleicht Excel von dem Code keine Rückmeldung erhät.
Was immer das sein soll.
Schon häfig war es so bei länger dauernden Codes daß zwar zwischenzeitlich "keine Rückmeldung"
angezeigt wird im Editor-Fenster, auch Umschalten zu Excel geht nicht, aber dann wenn
der Code fertig ist geht wieder alles wie immer.
Andererseits hatte ich es auch schon mehrfach daß ich bei "keine Rückmeldung"
und wahrlich langer Wartezeit nur noch den Taskmanager bemühen konnte und Excel abzuschießen.
Hast du gleiche Erfahrungen? Wenn ja berichte bitte wie du dir vorstellst was da ablaufen könnte.
Gruß
Reinhard

Hallo Reinhard,
ich hab mal ein wenig rumprobiert. Mit dem Einbau von "DoEvents" in die For_Next-Schleife bzw. vor jede Statusanzeige wird die Anzeige der Statuszeile ständig aktualisiert. Wie von dir beobachtet benötigt ein Makro dann etwas mehr Zeit.
Wann "keine Rückmeldung" kommt ist scheinbar auch etwas unterschiedlich. Es scheint davon abzuhängen, wie beschäfftigt Windows insgesamt ist und ob Excel schon längere Zeit in Betrieb ist. Jedenfalls konnte ich beobachten, dass nach dem Neu-Start von Excel oder auch nach dem Öffnen einer Datei Makros durchlaufen ohne Hinweis "keine Rückmeldung" aber nach mehrmaliger Ausführung kam dann die Anzeige.
Als Alternative zur Statuszeile kann man den Bearbeitungsfortschritt auch in einem ungebundenem Userform anzeigen. Dazu wird der Anzeige-Text in den Fenstertitel des UF geschrieben (Caption-Eigenschaft des UF). Die Verzögerung im Makro ist dann etwas größer als bei Anzeige in Statuszeile.
"keine Rückmeldung" und Excel hängt sich auf. Dann beenden via Taskmanager oder Alt+F4.
Kommt meistens vor bei umfangreichen Lösch-/Kopieraktionen in Verbindung mit komplexen Formeln. Passiert sowohl bei der Ausführung von Makros als auch im Handbetrieb. Das scheint immer noch eine Schwäche in der Speicherverwaltung (Arbeitsspeicher/Auslagerungsdatei/Zwischenablage/Undofunktion) zu sein nach der Umstellung auf größere Zeilen-/Spaltenanzahl in Excel 2007.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

16 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

application.statusbar

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

16 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread