Excel zu langsam!
15.04.2022 10:18:28
AL
ich bin am verzweifeln und brauche Hilfe, da meine VBA Kenntnisse recht bescheiden sind :(
Eine Excelmappe greift per Button auf ein anderes Programm zu, führt dort gewisse Prozesse durch und liest anschließend die Ergebnisse in die Excelmappe zurück. Der erste Teil funktioniert gut und schnell aber der zweite Teil (das Zurücklesen in Excel) dauert teilweise bis zu zehn Minuten.
Ich habe dieses Vorgehen mal mit einer leeren Excelmappe ausprobiert, um zu verifizieren, ob es an meiner Excelmappe liegt und wie sich herausgestellt hat, ist es tatsächlich so. Das Zurücklesen der Ergebnisse dauert in der leeren Excelmappe nur wenigen Sekunden!
Nun habe ich im Internet recherchiert, was man da machen kann und bin leider nicht weit gekommen. In dem unten angehängten Code seht ihr meine Versuche das Zurücklesen zu beschleunigen. Bisher ohne Erfolg.
Hinweise zu meiner Excelmappe, die vielleicht hilfreich sind:
Das manuelle Speichern sowie das automatische Zwischenspeichern der Mappe dauert bis zu 10 Sekunden (was auf die Größe der Mappe hinweisen soll, Größe = 5,7 MB).
Für gewisse Berechnungen ist die Berechnungsoption "Iterative Berechnung aktivieren" eingeschaltet.
Auf diversen Seiten sind Diagramme enthalten.
Habt Ihr Ideen, wie man das Zurücklesen der Ergebnisse und vielleicht auch das Speichern beschleunigen kann?
Danke und schöne Ostertage allen.
Gruß
AL
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim x As Long
For x = 1 To Worksheets.Count
With Worksheets(x)
.EnableCalculation = False
.EnableFormatConditionsCalculation = False
End With
Next
Run "Makro" 'mit dem die Prozesse und das Zurücklesen realisiert wird
For x = 1 To Worksheets.Count
With Worksheets(x)
.EnableCalculation = True
.EnableFormatConditionsCalculation = True
End With
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub