Hallo zusammen,
ich habe wieder einmal ein Problem. Ich hoffe jemand von euch kann mir helfen.
Ich habe ein Makro in das ich eine Fortschrittsanzeige eingebaut habe.
Dummerweise funktionierts nicht ganz :-( ...
Problem ist, er öffnet die ProgressBar genau wie es sein soll. Ich muss allerdings
jedesmal das Fenster der Progressbar schließen damit es weiterläuft und er mir den
hochlaufenden Balken anzeigt. Sprich wenn mein Makro 1000Mal die Schleife läuft
muss ich tausens mal das Fenster über x schließen. Meiner Meinung nach muss er
sich doch automatisch aktualisieren.
Hoffe die Beschreibung ist verständlich. Es funktioniert also halb, nur das die Aktualisierung nicht klappt ...
Anbei mein Code:
...
...
...
Länge = 0
LängeBalken = 0
Schritt = FortschrittsanzeigeAuslesen.ProgressBar1.Width / ZeilenAuslese
LängeGes = FortschrittsanzeigeAuslesen.ProgressBar1.Width
...
...
Load ProgressBar
Do
Do Until Not IsEmpty(Cells(ReiheLes, SpalteLes)) And IsNumeric(Cells(ReiheLes, SpalteLes))
SpalteLes = SpalteLes + 1
If SpalteLes > 255 Then
ReiheLes = ReiheLes + 1
SpalteLes = 3
'Zähler Fortschrittsbalken
Länge = Länge + Schritt
LängeBalken = Länge / LängeGes * 100
FortschrittsanzeigeAuslesen.ProgressBar1 = LängeBalken
DoEvents
FortschrittsanzeigeAuslesen.Show
If ReiheLes = ZeilenAuslese Then
Exit Do
End If
End If
Loop
...
...
Loop
...
...
Schon jetzt Danke euch!
MfG
Pasqual