Und noch ne Variante...
25.06.2003 20:42:15
Michael Heering
Hallo Miteinander!Da die Meisten immer so schön von den Userformen reden, möchte ich noch mal eine Variane für die StatusBar zum Besten geben:
In der Windows-Zeichentabelle findet man die Zeichen
□ und
■
Mit
Application.DisplayStatusBar=true
aktiviere ich die StatusBar.
Mit
Application.StatusBar="□□□□□□□□□□"
starte ich die Anzeige in der StatusBar.
Habe ich für die Laufzeit des eigentlichen Makros einen etwaigen Endpunkt kann ich den Zähler der Schleife durch den Endpunkt teilen. Ist dieser Wert mal 100 >= 10 ändere ich die Statusanzeige auf:
Application.StatusBar="■□□□□□□□□□"
usw...
Sieht fast aus wie die echte, nur mit schwarzer statt blauer Schrift und ohne 3D-Rahmen. Aber was sollst.
Gruß
Michael Heering