Clever-Excel-Forum

Normale Version: Makro ausführen wenn Berechnungen fertig
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Halli Hallo, da mir bei meinem letzten Problem super geholfen wurde, würde ich euch wieder um einen Ratschlag bitten:

Ich habe eine recht umfangreiche Auswertung für Stromverbräuche erstellt: 17 Blätter, bis zu 35.000 Zeilen. Zwecks Ermittling der Lastgangkutrven hätte ich gerne die Werte eines Blattes NACH Ende aller Berechnungen der Größe nach sortiert.

Wodurch löst man das Makro am besten aus, damit erst sortiert wird wenn alles berechnet ist?

Vielen Dank ;)

lG Michl
Halli Hallo, da mir bei meinem letzten Problem super geholfen wurde, würde ich euch wieder um einen Ratschlag bitten:

Ich habe eine recht umfangreiche Auswertung für Stromverbräuche erstellt: 17 Blätter, bis zu 35.000 Zeilen. Zwecks Ermittling der Lastgangkutrven hätte ich gerne die Werte eines Blattes NACH Ende aller Berechnungen der Größe nach sortiert.

Wodurch löst man das Makro am besten aus, damit erst sortiert wird wenn alles berechnet ist?

Vielen Dank ;)

lG Michl
Hola,

warum denn jetzt nochmal?

http://www.clever-excel-forum.de/thread-8430.html

Gruß,
steve1da
Hallo,


ich würde die Berechnung per Code anstoßen:


Code:
ActiveSheet.Calculate


und nach dieser Zeile Code dann den anderen Code ausführen
ui keine Ahnung wieso der Post doppelt ist ;)

Danke vorerst mal - eines sollte ich vielleicht noch erwähnen. Es sollen automatisch Daten importiert werden, worauf natürlich gleich die Berechnungen starten.

Mein Plan wäre:

automatischer Datenimport (das macht dann jemand Anderes) --> Excel Berechnung Start --> Excel Berechnung Ende --> Makro (Sortieren) --> ...

Im Moment habe ich es so gelöst, dass die betreffenden blätter vor dem schließen nocheinmal berechnet und anschließend sortiert werden -> funktioniert, aber vielleicht gibt es da noch eine elegantere Lösung?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Worksheets(5).Calculate
Worksheets(6).Calculate
Call sortieren
End Sub

lG Michl