HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dauer eines Makros ausgeben

Dauer eines Makros ausgeben
21.09.2003 07:48:42
Elmar Steigenberger
Hallo, Ihr lieben Helfer und Helferinnen,

ich möchte die Dauer eines Makros ausgeben und irgendwie klappt das nicht.

Ich habs so versucht:

alteZeit = TimeValue(Now())

Makro Anweisungen

neueZeit = TimeValue(Now())

Dauer = neueZeit - alteZeit

MsgBox Dauer

Dauer ist aber dann ein Wert von z.B: 2,08333333331E-04

Mit was muß ich den dann multiplizieren, damit er in Form von Sekunden rauskommt?

liebe e-Grüße
Elmar

====================================
Die erstaunliche und absolut umwerfende Wahrheit über den 11.09.01
www.elfterseptember.info

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

Betreff
Datum
Benutzer
AW: Dauer eines Makros ausgeben
21.09.2003 07:58:30
Hajo_Zi
Hallo Elmar

schaue Dir mal folgendes Beispiel an

http://home.media-n.de/ziplies/gepackt/vba/ohne_select.zip


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Danke! Hat funktioniert! oT
21.09.2003 08:21:44
Elmar Steigenberger
Danke für die Rückmeldung oT
21.09.2003 08:30:07
Hajo_Zi
AW: Danke für die Rückmeldung oT
24.09.2003 15:36:50
Erich
Hallo Elmar,

noch ein Vorschlag:


Sub DeinMakro()
Dim ZeitInStunden As Date
Dim start As Single
start = Timer
' Dein Makro
Ende = Timer    ' Ende festlegen.
Gesamtdauer = Ende - start    ' Gesamtdauer berechnen.
Gesamtminuten = Gesamtdauer / 60
ZeitInStunden = Gesamtminuten / 24 / 60
MsgBox "Die Sicherung benötigte " & ZeitInStunden & " Stunden"
End Sub

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!