Status Bar aktuallisiert sich nicht

[DeBabba]

Hallo Forum,
hab da ein problem(chen) und hoffe auf eure Hilfe
Ich arbeite eine Liste mit ca 25000 Datensätzen mittels Makro ab.
damit ich sehe, dass da noch was läuft bepuschel ich die Statusbar mit

Code:

Application.Statusbar = "Satz " & X & "  wird bearbeitet"

leider hört das aktualisieren immer so bei 3000 auf .
Das Makro läuft zwar und arbeitet auch richtig aber die Aktualisierung der Status Bar bleibt stehen.

hat jemand von euch ne Idee wie man das "richtig" hinbekommt ?

Vielen dank im Vorraus

Gruß
DeBabba

[Hajo_Zi]

du hast schon geprüft ob die Zeile bei > 3000 noch angesprungen wird. Wir können das nicht.

Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Homepage">

[DeBabba]

Hallo HaJo,
ja, ich mache das bei jedem Schleifendurchgang.
Alle 500 Durchgänge wird / soll das aktualisiert werden

Code:

For Schl1 = 2 To Cells(2, 1).End(xlDown).Row '17207
If Schl1 Mod 500 = 0 Then
     Application.StatusBar = "Satz " & Schl1 & "  wird bearbeitet"
End If

[Hajo_Zi]

ich habe jetzt ein kompletten Code draus gemacht und es werden bei mir alle angezeigt.

Code:

'Option Explicit

Sub test()
For Schl1 = 2 To 15000 '17207
If Schl1 Mod 500 = 0 Then
     Application.StatusBar = "Satz " & Schl1 & "  wird bearbeitet"
     Application.Wait Now + TimeValue("00:00:01")
End If
Next
End Sub

Gruß Hajo

[DeBabba]

Danke Hajo,
werde das mal testen (muss aber jetzt in ein sch.. Meeting)
Also erst später

Gruß
DeBabba

[DeBabba]

Hallo HaJo
:23: :23: :23:
So funktionierts
vermutlich ist die 1 sekündige Pause der Auslöser, damit sich Excel nicht verschluckt

Nochmals Danke
:28

Gruß
DeBabba

[Hajo_Zi]

ich hatte die Sekunde pause nur eingbaut, damit ich es sehe, Ansonsten ist er sofort bei 15.000

Gruß Hajo