Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 19:27:32
Ungewollter Zeilensprung beim Löschen einer Spalte
09.10.2025 17:12:32
Rechnen in Zeile nach Auswahl Dropdown
09.10.2025 16:26:10
Sortenreine LKWs Filtern
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Marko zum auslesen der Berechnungsdauer

Forumthread: Marko zum auslesen der Berechnungsdauer

Marko zum auslesen der Berechnungsdauer
09.09.2019 13:00:57
Felix
Hi all,
hoffe ich habe keinen Doppelbeitrag habe aber dazu nichts gefunden.
Gibt es ein Makro das mir ausgibt wie lange die Berechnung pro sheet dauert. Aktuell dauert es nämlich etwas lange und ich würde gerne wissen wo ich die Formeln etwas optimieren muss.
Danke und Grüße,
Felix
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Marko zum auslesen der Berechnungsdauer
09.09.2019 13:33:55
Pierre
Hallo Felix,
so etwas? 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dteStart As Date, dteEnde As Date
Dim iCounter As Single
Application.ScreenUpdating = False
dteStart = Timer
ActiveSheet.EnableCalculation = True 'Berechnung für dieses Blatt erlauben
Application.Calculate 'berechnen
dteEnde = Timer
MsgBox "Bearbeitungszeit: " & Format _
(dteEnde - dteStart, "0.00") & " Sekunden..."
ActiveSheet.EnableCalculation = False 'Berechnung für dieses Blatt unterdrücken
End Sub
https://www.herber.de/forum/archiv/356to360/359692_Berechnungsdauer_einer_Formel_ermitteln.html
Gruß Pierre
Anzeige
AW: Marko zum auslesen der Berechnungsdauer
09.09.2019 14:04:04
Felix
Hi Pierre,
ja das hilft schon mal etwas wobei ich es mir eher erhofft habe, dass es mir es in Tabellenform ausgibt.
Ähnlich zu dem Makro hier dass den berechneten Bereich anzeigt nur eben auf Rechenaufwand geändert:
Grüße und Danke!
Sub CheckSheets()
Dim wsh As Worksheet
Dim AnzUR As Double
Dim AnzBel As Double
dim i as long
With Sheets("Auswertung")
For Each wsh In ActiveWorkbook.Worksheets
i = i + 1
.cells(i, 1).value = wsh.Name
.cells(i, 2).value = wsh.UsedRange.CountLarge
.cells(i, 3).value = WorksheetFunction.CountA(wsh.UsedRange)
Next
end with
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige