"Superharte Nuss" für Profis :)

Hallo Gemeinde!

Dieser Post richtet sich an die Super-Profis dieses Forums:

Ich habe eine Monster-Datei (ca. 25 MB) mit ca 30 Sheets und vielen Indirekt-, Sverweis-, und sonstigen Quer-Berechnungen und Formeln. Darüberhinaus sind noch 3 externe Tabellen als Links eingebunden.

Die Tabelle wird monatlich mit "frischen SAP-Daten" versorgt. Hierbei erfolgt nach dem Import der diversen Grunddaten eine komplette Neuberechnung der Tabelle. (Defaultmäßig ist Berechnen auf manuell gesetzt, da durch die "indirekt"-Formeln beim Aufruf der Tabelle sonst allein schon 2 Minuten vergehen).

Das Ganze wird noch über eine Vielzahl von UFs gesteuert und ausgewertet.

Nun mein Problem.

Das aktualisieren der Tabelle dauert ewig. Es werden ca. 12 von den 30 Blättern berechnet, der Rest sind feste Basisdaten bzw. Hilfstabellen.
Jedes Blatt hat ca. 45 Spalten und 2000 Reihen.

Ich wollte den "Abarbeitungszustand" über eine Userform-Balkenanzeige darstellen. Wie das vom Grundsatz geht weiss ich sehr wohl, jedoch nur in Bezug darauf, wenn es in einer Schleife abgearbeitet wird, wobei hier der Schleifendurchlauf den Grafikfortschritt berechnet.

Wie aber geht das, wenn ich die Berechnung über "calculate" starte???

Derzeit setzte ich zuvor einen Timer und zeige nach der Berechnung das Ergebnis in einer MsgBox. Da aber die Dateien in unserem Netz liegen, ist die Berechnungsdauer sehr schwankend, je nach Netzauslastung.

Ideen sind sehr willkommen.

Liebe Grüsse
Lothar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetCalculate(ByVal Sh As Object) und in ein Standardmodul Option Explicit Sub berechnen() Dim s As Long, wsc As Long wsc = Worksheets.Count For s = 1 To wsc Sheets(s).Calculate Next End Sub

Danke Ulf!

Ich versteh es nicht ganz!

1. meine Berechnung steht auf manuell
2. ich machte ein Sheet.Calculate nach jedem Blatt (das geht noch jeweils recht fix)
3. ich mache anschliessend ein Workbook.Calculate um die Externen Links zu refreshen und zu berechnen
4. der Code für die Progressbar ist wie folgt aufgebaut (Beispiel aus anderem Workbook):

Auszüge:

A im Modul:
===========

In der(n) Schleife(n) im eigentlichen "lange dauerndem Macro":
ein "Call refreshPB"
nachdem zuvor die 100% Fortschritt anhand der Durchläufe (hier 372) bekannt sind:

B in UForm:
===========
Anm: in der UF liegen 2 Frames mit unterschiedlichen Farben (Weiss und Blau) übereinander
Der Blaue Frame wird Schrittweise vergrößert.

Option Explicit
Dim mfStep As Double


Sub HierGehtsLos()
'anstatt "Langes Makro" direkt aufzurufen, Umweg über Userform
frmPB.Show
DoEvents
End Sub

--------------------------------


Sub StartPB()
Call initPB(372) ' 372 sind die Gesamtschleifenschritte, also die 100%
Call "Langes Macro"
End Sub

---------------------------------


Sub initPB(lTotalSteps As Long)
With frmPB
.PBx.Width = 0 'zurücksetzen
mfStep = .PB100.Width / lTotalSteps 'Schrittbreite pro Aktualisierung
End With
End Sub

----------------------------------


Sub refreshPB()
frmPB.PBx.Width = frmPB.PBx.Width + mfStep
frmPB.Caption = "Bitte warten ... Berechnung zu " & Format(iCounter / 372, "0%") & " fertig"
DoEvents
End Sub

----------------------------------

5. immer noch das Problem: was sind die 100% Fortschritt beim Calculate ??
6. muss das "Private_Sub_Workbook_SheetCalculate(ByVal Sh As Object)" in jedes Blatt oder in ThisWorkbook ??

Gruss
Lothar

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

"Superharte Nuss" für Profis :)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread