[XL2010, VBA] Zähler in Statusleiste bleibt hängen
Jörg Eisenträger
in länger dauernden FOR- oder WHILE-Schleifen lasse ich gern einen
Zähler in der Statuszeile hochlaufen, um dem User anzuzeigen, dass das
Makro noch arbeitet. Beispiel:
Public Sub Test_StatusBar()
For i = 1 To 50000
Application.StatusBar = "Bearbeite Zeile " & i
Cells(i, 1).Value = i
Next
End Sub
Unter XL2003 war alles super.
Unter XL2010/Win7 bleibt die Anzeige des Zählers häufig unterwegs
stehen, z. B. bei 14188. Der Wert variiert. Das Makro läuft aber
trotzdem weiter, ohne dass sich die Statuszeile ändert, und zeigt am
Schluss an: "Bearbeite Zeile 50000".
Als Test lasse man die obige Sub in einer neuen völlig leeren
Arbeitsmappe laufen. Beim zweiten Durchlauf, wenn die 50000 Zellen schon
gefüllt sind, bleibt die Statuszeile nicht mehr hängen.
Könnt Ihr das reproduzieren oder habt Ihr eine Erklärung oder Abhilfe?
Gruß
Jörg
--
LPs auf CD brennen - so geht's: http://www.joergei.de/
E-Mail-Adresse existiert, wird aber nicht gelesen.
Winfried Sonntag [MVP]
> in länger dauernden FOR- oder WHILE-Schleifen lasse ich gern einen
> Zähler in der Statuszeile hochlaufen, um dem User anzuzeigen, dass das
> Makro noch arbeitet. Beispiel:
>
> Public Sub Test_StatusBar()
> For i = 1 To 50000
> Application.StatusBar = "Bearbeite Zeile " & i
> Cells(i, 1).Value = i
> Next
> End Sub
>
> Unter XL2003 war alles super.
Du könntest vor dem Application.Statusbar ein DoEvents einsetzen.
Servus
Winfried
--
Connect2WSUS: http://www.grurili.de/tools/Connect2WSUS.exe
GPO's: http://www.gruppenrichtlinien.de
Community Forums NNTP Bridge: http://communitybridge.codeplex.com/
Jörg Eisenträger
konnte es erst heute testen. Sorry f�r die sp�te Antwort.
>Du k�nntest vor dem Application.Statusbar ein DoEvents einsetzen.
Das hat geholfen. Vielen Dank f�r den Tipp.
�brigens tritt der Fehler nur mit XL2010 unter Win7 auf. Bei XL2010
unter WinXP ist auch alles OK, ohne DoEvents.
Gru�
J�rg