Registriert seit: 23.11.2016
Version(en): 2013
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
Registriert seit: 23.11.2016
Version(en): 2013
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
Registriert seit: 16.04.2014
Version(en): xl2016/365
03.02.2017, 11:24
(Dieser Beitrag wurde zuletzt bearbeitet: 03.02.2017, 12:01 von Rabe.
Bearbeitungsgrund: Themen verbunden
)
Registriert seit: 14.04.2014
Version(en): 2003, 2007
Hallo,
ich würde die Berechnung per Code anstoßen:
Code:
ActiveSheet.Calculate
und nach dieser Zeile Code dann den anderen Code ausführen
Gruß Atilla
Registriert seit: 23.11.2016
Version(en): 2013
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