Fortschrittsbalken in der Statusleiste?

[barakuda]

Hallo FI's,

manche meiner MaKros laufen teilweise bis zu 2 Minuten, dabei wird z.B. eine Arbeitsmappe mit ca. 50 Tabellenblättern durchlaufen und jeder Tabelle ein bestimmtes Seitenlayout zu geordnet oder div. Spalten ein- oder ausgeblendet. Die Makros funktionieren, nur manchen Usern dauern diese Makros zu lange, denken Excel hat sich aufgehängt und beenden es mit Taskmanager.

Ich lasse zwar während der Laufzeit einen Kommentar in die Stausleiste setzten, den liest aber kaum einer. Ich habe mir nun gedacht, dass es vielleicht möglich wäre, in der Stausleiste einen Fortschrittsbalken ablaufen zu lassen, weiss aber nicht ob, bzw. wie das geht. Hat von euch einer eine Musterlösung parat?

Da ich immer die gleiche Schleife benutze, sieht der Quelltext/die Schleife in etwa so aus:

Dim i As Integer

i = 3 'Beginnt mit Tabellenblatt drei

Do

- z.B. bestimmtes Seitenlayout einrichten -

i = i + 1

Loop While i <= Worksheets().Count - 5 'die letzten fünf Tabellenblätter werden ausgeschloßen

Solange diese Schleife läuft, sollte auch dieser Fortschrittbalken angezeigt werden, entweder in der Statusleiste o9der meinetwegen auch als schwebendes Dialogfenster oder dgl.

Wäre Toll, wenn einer von euch eine passende Lösung wüßte.

Barakuda

[MarcG]

Glaube kaum, dass du das mit VBA machen kannst. In Delphi hab ich sowas mal gemacht, indem ich eine Fortschrittsanzeige auf dem formular hatte, die aber unsichtbar war und dann bevor ich sie angezeigt habe hab ich sie "in die Statusbar kopiert".

Zeig doch einfach ein kleines Fenster mit Fortschritt an, das sollte doch mit VBA in Excel gehen...

(Das mit dem Fenster hast du ja schon geschrieben, ist halt doch immer gut bis zum Ende zu lesen )

Wenn das mit der Fortschrittsanzeige nicht geht mach die doch selber eine, halt ohne Balken.

Also sowas wie ... "Bearbeite Blatt 4 von 20" ... "Bearbeite Blatt 5 von 20" ... etc.

[barakuda]

@MarcG

Hallo,

dass es diesen Fortschrittsbalken unter VBA gibt, weiss ich sicher. Ich hatte es mal im Internet gesehen, habs damals aber nicht gebraucht und weiss heute nicht mehr wo das wahr.

Aber deine Idee mit dem Dialogfenster Tabelle 1 von x usw. finde ich auch ok. Ich probier das mal aus, ob ich das hinkrieg, denn es soll ja keine Meldung sein, die ich jedesmal mit OK bearbeiten soll, sondern die sich automatisch ändert. Ich könnte es ja auch in die Statuszeile mit einbauen. Mal schauen!

Danke mal und vielleicht hat ja ein anderer noch eine Idee mit dem Fortschrittsbalken.

Barakuda

[MarcG]

Das ich nicht sicher bin ob das in VBA geht, damit hab ich nicht den Balken an sich gemeint, sondern den in der Statusbar anzuzeigen.

Gibt es in VBA nicht die Möglichkeit ein Fenter anzuzeigen, das nicht als modaler(stoppt die Anwendung bis Ok gedrückt wurde) Dialog erscheint?

[barakuda]

Ich habe deinen Vorschlag in die Tat umgesetzt. Jetzt erscheint in der Statusleiste der Spruch "Bearbeite Tabelle i von n". Ich danke dir - damit kann ich leben. Es muss nicht unbedingt ein farbiger Balken sein. Obwohl - gereizt hätte es mich schon. Vielleicht wirds ja noch.

Das Fenster, das du da noch ansprichst, welches man nicht mit einem Kommando schließen muß, wäre zwar auch schön, ich kenn das aber nicht, bzw. habe auch noch nie davon gehört. Wahrscheinlich muß das in einem Zusammenhang mit einer Userform passieren oder so ähnlich......

Nochmal Danke

Barakuda