Office: Fortschrittsbalken für VBA Macro in Excel

Hallo liebes Forum,

ich bin auf der Suche nach hilfreichen Beispielen und Erläuterungen wie man in Excel einen Fortschrittsbalken darstellt. In meiner Toolbox habe ich keine ProgressBar finden können (arbeite mit MS Office 2010 und VBA 7.0) möchte es deshalb über ein Label mit variabler Breite im fixen Rahmen versuchen.
Aktuell starte ich über einen Button ein Macro, das diverse Punkte im Hintergrund abarbeitet und beende das ganze mit einer Mittelung, dass alle Punkte nun abgearbeitet sind.
Damit aber nicht der Eindruck entsteht, das Macro hätte sich aufgehängt, möchte ich dies über einen Fortschrittsbalken darstellen (eine User Form habe ich dafür schon generiert).
Auch habe ich 10 zusätzliche Zeilen im vorhandenen Macro bereits integriert => "Status = 10" bis "= 100".
Mein Problem ist aber die stetige Aktuallisierung des Balkens bzw. die Tatsache, dass das Macro beim Öffnen der Userform stoppt.

Wäre also für alle Tipps dankbar, die meinem Anliegen sehr Nahe kommen.

:)

 

Hi Stefan,

vielleicht solltest du deine Mappe mit dem bisherigen Stand mal hochladen - du hast die Zeit für das Erstellen doch bereits investiert.

 

Hallo Karin,

es handelt sich aber leider um eine Datei, die ich im Auftrag meiner Firma mache und die ich nicht befugt bin, zu veröffentlichen. Daher suche ich ja auch nur nach Hinweisen (LINKS zu Beispielen oder analogen Fällen), wo explizit auf meine Probleme eingegangen wird (User form stoppt macro und TextBoxbreite aktuell verbreitern bis auf 100%). Zur Erläuterung: es sind keine Schleifen, sondern einzelne Schritte, die nacheinander abgearbeitet werden..

 

noch gar nicht so lange her...

 

Hi Stefan,

Man kann auch eine Kopie der Mappe erstellen, die anstelle der Originaldaten anonymisierte Daten enthält...

 

Hallo nochmal,

bin leider immer noch nicht weiter und befürchte langsam, dass das, was ich vorhabe nicht funktioniert.
Anbei ein Ausschnitt aus dem aktuellen Macro:

"....
Dim bolfound As Boolean
Dim SpalteB As Long
Dim Status As Integer



rowvar = ActiveCell.Row
colvar = ActiveCell.Column


' show progress bar
Status = 0
Application.StatusBar = "Fortschritt: " & Status & "%"
ActiveSheet.Label1.Caption = "Preparing"
ActiveSheet.Label1.Visible = True


' prepare Participation sheet for next session = add empty line

Status = 10
Application.StatusBar = "Fortschritt: " & Status & "%"

Application.ScreenUpdating = False

nRow = Worksheets("Participation").Range("AH5").Value
Worksheets("Participation").Activate
Range("A" & nRow - 1 & ": AL" & nRow - 1).Select
Range("AL" & nRow - 1).Activate
Selection.AutoFill Destination:=Range("A" & nRow - 1 & ":AL" & nRow), Type:=xlFillDefault
Range("A" & nRow & ":AE" & nRow).ClearContents
Range("A" & nRow).Select

Status = 20
Application.StatusBar = "Fortschritt: " & Status & "%"

'Pre-set variables
Info_txt = ""
Info_txt1 = ""
...."

Wie Ihr seht, versucht ich zuletzt über die StatusBar die Anzeige zu realisieren, habe aber hier jetzt das Problem, dass diese in der Vollansicht, die ich über VBA einstelle, gar nicht angezeigt wird.

Auch über ein Label direkt als Steuerelement in das Worksheet eingebaut mit immer neuer Textaktualisierung klappt auf Grund der schnellen Abläufe und "ScreenUpdating = False" auch nicht wirklich.

Hat jemand noch eine Idee?

 

Hast Du Dir meine Verlinkung überhaupt angeschaut?

 

Hallo Scorefun,

sicher.., aber der damalige Tipp kam schon von mir *boah , da ich zu diesem Zeitpunkt schon auf der Suche nach einer Lösung war, der genannte Fall ist aber anders als bei mir. Ich möchte parallel ein Marco ablaufen lassen, beim Link ist es ein Zähler, der dargestellt wird..

 

Was spielt das für eine Rolle?

Du musst dafür Sorgen, daß die Breite Deines Labels dem Fortschritt entsprechend angepasst wird, ob das nun ein automatischer Zähler ist,
oder eine von Dir festgelegte Zahl ist doch egal

Und mit einem Code:

nach der Labelbreitenanpassung ohne Code:

sollte das auch sichtbar werden

Wenn Dein ganzer Code aber sowieso recht schnell abläuft, dürfte sich eine Progressbar erübrigen

edit: Screenupdating = False kann ruhig bleiben, habe ich bei mir auch drin, aber wichtig ist das DoEvents,
damit das Betriebssystem Zeit bekommt, Ereignisse abzuarbeiten (=Aktualisierung der Labelbreite etc)

 

Hier hänge ich aber jetzt: Ich öffne die User_form und wie realisiere ich jetzt, dass das Macro weiterläuft, um mir die Daten in die Label der Userform zu schieben?
Natürlich ist das ganze kein Muss, aber eine Sache, die ich bisher noch nicht kenne und unbedingt mal zum Laufen bekommen möchte..

 

Ein Label auf Deiner Userform plazieren, unsichtbar, Farbe blau
Angenommen Dein Label ist 400 breit und Du hast 5 Schritte

Code:

 

Prima, klappt, jetzt noch etwas finetuning - dann war's das.

danke Dir, Ralf