10er Zaehler
14.06.2004 16:59:41
Nike
hat jemand nen Zaheler greifbar,
der in 10er Schritten die Statusbar aktualisiert?
in etwa so:
Sub test()
for i = 1 to 1000
if i = 10 oder 20 oder oder oder then
' ein Vielfaches von 10 oder 50,
application.screenupdating = true
application.statusbar = i
application.screenupdating = false
end if
next
End Sub
Tips waeren nett.
Bye
Nike
Anzeige