application.statusbar
heinz.schikorra@tomra.de
in einem VBA Programm habe ich eine Verlaufsanzeige in einer Schleife. Nach ca. 12.000 Durchläufen wird die Statusanzeige nicht mehr aktualisiert. Den Code habe ich unten aufgeführt:
application.calculation = xlcalculationmanual
application.screenupdating = false
for i1 = 1 to 80000
application.statusbar = "Datensatz " & format(i1,"0000000")
'... hier geschehen weitere Aktionen
next i1
application.screenupdating = true
application.statusbar = false
application.calculation = xlautomatic
Frage: Wie kann ich das Einfrieren verhindern?
Danke für Hilfe!
MfG Heinz