VBA - Application.StatusBar

[norbert]

Hallo VBA-profis!

Ich habe ein (hoffentlich kleines) Problem mit "Application.StatusBar".
Ich habe am Ende einer langen & rechenzeitintensiven Sub einen Zähler,
der dem User anzeigt, wieviel der Prozedur inzwischen abgearbeitet
wurde:

Application.StatusBar = "Simulationspopulation zu " _
& Round(100 * (DateDiff("m", RStart, REnd) + 1 -MonatsZähler) _
/ (DateDiff("m", RStart, REnd) + 1)) _
& "% aufgebaut"

Wenn während Abarbeitung dieser Routine eine andere Applikation kurz
mal in den Vordergrund kommt, wird die Prozedur zwar weiter berechnet,
die Statusleiste von Excel wird jedoch nicht aktualisiert, sie bleibt
"eingefroren". Gibt es eine Möglichkeit, dass ich, z.b. wenn weitere
10% durchlaufen wurden, Excel anweise, den Status Bar wieder zu
aktivieren?

Please help....

Danke!

[Michael Schwimmer]

Hallo Norbert,

Post by norbert
Ich habe ein (hoffentlich kleines) Problem mit
"Application.StatusBar". Ich habe am Ende einer langen &
rechenzeitintensiven Sub einen Zähler, der dem User anzeigt, wieviel
Application.StatusBar = "Simulationspopulation zu " _
& Round(100 * (DateDiff("m", RStart, REnd) + 1 -MonatsZähler) _
/ (DateDiff("m", RStart, REnd) + 1)) _
& "% aufgebaut"
Wenn während Abarbeitung dieser Routine eine andere Applikation kurz
mal in den Vordergrund kommt, wird die Prozedur zwar weiter
berechnet, die Statusleiste von Excel wird jedoch nicht
aktualisiert, sie bleibt "eingefroren". Gibt es eine Möglichkeit,
dass ich, z.b. wenn weitere 10% durchlaufen wurden, Excel anweise,
den Status Bar wieder zu aktivieren?

man könnte ab und an ein DoEvents ausführen, vielleicht hilft das ja.
Aber bitte nicht zu oft, das bremst die Programmausführung.

MfG
Michael

Post by norbert
Please help....
Danke!

[Melanie Breden]

Hallo norbert,

Post by norbert
Ich habe ein (hoffentlich kleines) Problem mit "Application.StatusBar".
Ich habe am Ende einer langen & rechenzeitintensiven Sub einen Zähler,
der dem User anzeigt, wieviel der Prozedur inzwischen abgearbeitet
Application.StatusBar = "Simulationspopulation zu " _
& Round(100 * (DateDiff("m", RStart, REnd) + 1 -MonatsZähler) _
/ (DateDiff("m", RStart, REnd) + 1)) _
& "% aufgebaut"
Wenn während Abarbeitung dieser Routine eine andere Applikation kurz
mal in den Vordergrund kommt, wird die Prozedur zwar weiter berechnet,
die Statusleiste von Excel wird jedoch nicht aktualisiert, sie bleibt
"eingefroren". Gibt es eine Möglichkeit, dass ich, z.b. wenn weitere
10% durchlaufen wurden, Excel anweise, den Status Bar wieder zu
aktivieren?

bleibt die Statuszeile auch eingefroren, wenn Excel wieder aktiviert wird?
Welche Excel Version verwendest du?


Mit freundlichen Grüssen
Melanie Breden

[norbert]

Hallo Melanie,

Das ist ja das Problem, Excel kann auch noch so wieder im Vordergrund
sein, die Statusleiste ist tot (Mitunter seh ich auch einen weißen
Schatten des Fensters der anderen Applikation, für mich ein klarer
Hinweis dass die gesamte Leiste nicht mehr wieder aufgebaut wird.)
Bezüglich Versionen: Eigentlich bin ich ziemlich up to date: Office
2002 SP3; Win XP pro 2002 SP2; Rechner: HP6200 Dual, 1GB RAM, gute
Graphikkarte). Ich glaub' inzwischen, dass dies wirklich mit
Betriebssystem bzw. Office-Version zusammenhängt.
....
Heureka, hab's jetzt mal kurzfirstig mit einem
office2000+win2000pro-Rechner probiert und siehe da, das Problem
existiert hier nicht!

Danke für den Hinweis!!

[norbert]

Hallo Melanie,

Das ist ja das Problem, Excel kann auch noch so wieder im Vordergrund
sein, die Statusleiste ist tot (Mitunter seh ich auch einen weißen
Schatten des Fensters der anderen Applikation, für mich ein klarer
Hinweis dass die gesamte Leiste nicht mehr wieder aufgebaut wird.)
Bezüglich Versionen: Eigentlich bin ich ziemlich up to date: Office
2002 SP3; Win XP pro 2002 SP2; Rechner: HP6200 Dual, 1GB RAM, gute
Graphikkarte). Ich glaub' inzwischen, dass dies wirklich mit
Betriebssystem bzw. Office-Version zusammenhängt.
....
Heureka, hab's jetzt mal kurzfirstig mit einem
office2000+win2000pro-Rechner probiert und siehe da, das Problem
existiert hier nicht!

Danke für den Hinweis!!

[norbert]

Hallo Melanie!

Danke für den Hinweis bezüglich Version. Ich verwende Office 2002pro
SP3 & WinXP2002pro SP2; habe die Simulation nun testweise unter
win2000pro SR1 & Office2000pro SP4 laufen lassen. Es funktioniert mit
der älteren Umgebung! Problem liegt also an Office bzw. Windows.


lg Norbert