Clever-Excel-Forum

Hallo Forum,
hab da ein problem(chen) Huh

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 ? Undecided

Vielen dank im Vorraus

Gruß
DeBabba

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">

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

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

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

Gruß
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 Thumbsupsmileyanim

Gruß
DeBabba

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

Gruß Hajo

DeBabba

Hajo_Zi

DeBabba

Hajo_Zi

DeBabba

DeBabba

Hajo_Zi