Herbers Excel-Forum - das Archiv

"Lademaske" während des berechnens

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: "Lademaske" während des berechnens
von: Daniel
Geschrieben am: 19.09.2003 07:40:06
Hi Leute,
ich habe eine Datei mit ca 1500 Datensätzen. Wenn der Button "Berechnen" angeklickt wird, werden daten berechnet. Dies dauert schon einige Sekunden und Excel springt oft hin und her zwischen den Blättern.

Kann ich eine Art "Lademaske" errichten. Sie sollten beim Start der Berechnung starten und den aktuellen Ladestand ungefähr anzeigen. Also z.B. ein Balken, der von 0 bis 100% durchläuft.

Geht so etwas???

mfg Daniel

Bild

Betrifft: AW: "Lademaske" während des berechnens
von: Hajo_Zi
Geschrieben am: 19.09.2003 08:13:27
Hallo Daniel

mittels einer Userform.

" Excel springt oft hin und her zwischen den Blättern" Select usw ist zu 99% in VBA nicht nötig.

GRuß hajo
Bild

Betrifft: AW: "Lademaske" während des berechnens
von: Daniel
Geschrieben am: 19.09.2003 08:16:42
Hi,
wie mache ich das denn mit der Userform als Lademaske?
Kann Excel denn diesen 0 - 100% Ladebalken irgendwie anzeigen?

Danke schon mal für die Antwort...

mfg Daniel
Bild

Betrifft: AW: "Lademaske" während des berechnens
von: Hajo_Zi
Geschrieben am: 19.09.2003 08:18:35
Hallo Daniel

schaue mal auf meine Homepage dort ist ein Beispiel dazu

http://home.media-n.de/ziplies

Gruß Hajo
Bild

Betrifft: AW: "Lademaske" während des berechnens
von: BerndG
Geschrieben am: 19.09.2003 08:44:25
Hallo Daniel,
mit dem Ladebalken kann ich leider nicht dienen. Ich arbeite mit der Statuszeile und laß mir die Nummer der Datensätze anzeigen die er gerade durchläuft.

Sub statuszeile(anfang, ende)
'Statuszeilenzähler
'Hinweis: eine Prozedur oder Funktion mit Parameterübergabe muß
' mit CALL aufgerufen werden
' z.B. CALL statuszeile(1,1000)
'oder als Funktion
Application.DisplayStatusBar = True
For iK = anfang To ende
Application.StatusBar = Str(iK) & " von " & Str(ende) & " wurden gezählt"
Next
'Statuszeile ganz wegenehmen
'Application.DisplayStatusBar = False
'Anzeige in Statuszeile löschen
Application.StatusBar = ""
End Sub


Gruß
BerndG
 Bild