Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
168to172
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
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Stoppuhr mit VBA

Stoppuhr mit VBA
13.10.2002 10:10:12
Fritz
Hallo
kennt jemand eine Möglichkeit, mittels VBA eine möglichts genaue
Stoppuhr nachzubilden.
Meine Wunscheckdaten sind:
Auflösung 1/10 Sekunden.
Bereich: bis 1 Std.

Gruß Fritz.
P.S. Ein großes Lob an dieses Forum und die Teilnehmer !!

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

Betreff
Datum
Anwender
Anzeige
Re: Stoppuhr mit VBA
13.10.2002 10:22:09
geri

Unter http://www.excel-center.de/excel/beispiele.htm gibt es dazu ein Beispiel (Download einer ZIP-Datei).
ebenso unter Recherche wird man auch fündig.

gruss
geri

Re: Stoppuhr mit VBA
13.10.2002 14:51:59
Jörg
Hi
in Diese Arbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Start = False
End Sub

Private Sub Workbook_Open()
Zeitmakro
Zeit = Time
Start = True
End Sub

und in ein Modul
Public Zeit As Date
Public Start As Boolean

Sub Zeitmakro()
Application.OnTime Now + TimeValue("00:00:01"), "Zielmakro"
End Sub

Sub Zielmakro()
Range("A1").Value = Format(Time, "hh:mm:ss")
Range("A2").Value = Format(Time - Zeit, "hh:mm:ss")
If Start = True Then Call Zeitmakro
End Sub

Zweite Lösung
Du musst in der VBA-Umgebung mit der rechten Maustaste auf dein Projekt klicken und ein Modul eifuegen. Schreib die Declare Anweisungen da rein und dann:

sub start ()
TIMEINIT
end sub

sub beenden ()
sheets("Tabelle1").cells(1,1) =TIMEREAD
end sub

Dann schreibts du in den Code der Tasten nur noch
start und beenden!

mfg Jörg

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge