Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Die Berechnungsdauer ermitteln

Die Berechnungsdauer ermitteln
20.12.2004 16:33:53
Giuseppe
Hallo VBA-Profis
Ich habe ein VBA Makro, dass per Schlaufe, Werte berechnet.
Nun möchte ich am Beginn, das Datum (Zeit) festhalten,
um nach dem beenden der Schlaufe, die Zeitdifferenz zu ermitteln.
Aber leider bringt er mir immer das Ergebnis = 0
Ich möchte es gerne in Minuten ausdrücken.
Was mache ich falsch?
Hier mein VBA Beispiel:
Dim A As Date
A = Date
.
.
.
Dim B As Date, X As Integer
B = Date
X = A - B
MsgBox X
mfG
Giuseppe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Die Berechnungsdauer ermitteln
20.12.2004 16:45:45
Josef
Hallo Guiseppe!
Vieleicht so:

Sub Dauer()
Dim t As Long
t = Timer
MsgBox Format((Timer - t) / 86400, "hh:mm:ss")
End Sub

Gruß Sepp
AW: Die Berechnungsdauer ermitteln
21.12.2004 09:35:37
Giuseppe
Hallo Sepp
Bessten Dank für Deine Hilfe
Makroklein aber oho!
Die Zeitinformation ist perfekt.
Ich konnte die Variable auch in eine Tabelle verknüpfen;
so habe ich jetzt auch eine "Uhr", die mir den Zustand anzeigt.
Ich habe den Faktor 86400 auf 60 reduziert, um Minuten zu erhalten;
ist das ok?
Es funktioniert!
Muss die Variable unbedingt "As Long" sein?
mfG
Giuseppe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige