Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
08.10.2025 06:24:29
VBA - Zeichenkette von rechts kürzen
07.10.2025 18:27:08
Formel anstelle XVWERWEIS für alte Excel-Version
07.10.2025 15:42:10
Identische-Tabellen-identische Sub's funktionieren nicht...
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
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausführungszeit in ms messen

Forumthread: Ausführungszeit in ms messen

Ausführungszeit in ms messen
19.02.2021 08:48:39
M.
Hallo zusammen,
ich habe ein größeres Programmchen, bei dem ich die Ausführungszeit testen und optimieren möchte.
Dazu eine einfache Stoppuhr eingebaut.
.... leider misst es die Zeit nicht in Millisekunden, gibt es da eine schnelle Lösung?
p.s.
Zeit = Now
Call CSVladen_Click
Call Uebertragen_Click
Call Aktualisieren_Click
'Call Uebertragen_Click
Differenz = Format(Now - Zeit, "hh:mm:ss,000")
MsgBox "Tagesprogramm in " & Differenz & " geplant"
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausführungszeit in ms messen
19.02.2021 08:59:56
M.
p.s. Zehntelsekunden würde schon reichen!
AW: Ausführungszeit in ms messen
19.02.2021 09:08:03
Rudi
Hallo,
Differenz in Sekunden 
 Zeit = Timer
Call CSVladen_Click
Call Uebertragen_Click
Call Aktualisieren_Click
'Call Uebertragen_Click
Differenz = Timer - Zeit
MsgBox "Tagesprogramm in " & Differenz & " geplant"

Gruß
Rudi
Anzeige
AW: Ausführungszeit in ms messen
19.02.2021 09:10:27
MRUTOR
Hallo M.,
diese Zeilen in den Kopf deines Moduls: 

Public Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
Public lngTime As Long

diese Zeile am Anfang deines Codes: 

lngTime = GetTickCount

und eine Msgbox mit der Ausgabe am Ende des Codes: 

MsgBox (GetTickCount - lngTime)

Gruss Tor
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