Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
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
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Stoppuhr mit VBA

Forumthread: 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 !!

Anzeige

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
;
Anzeige

Infobox / Tutorial

Stoppuhr in Excel mit VBA erstellen

Schritt-für-Schritt-Anleitung

Um eine Stoppuhr in Excel mit VBA zu erstellen, folge diesen Schritten:

  1. Öffne Excel und gehe zu den Entwicklertools. Wenn die Entwicklertools nicht sichtbar sind, aktiviere sie über die Excel-Optionen.

  2. Öffne den VBA-Editor mit ALT + F11.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf dein Projekt im Projektfenster.
    • Wähle "Einfügen" > "Modul".

  4. Kopiere den folgenden Code in das Modul:

    Dim Zeit As Date
Dim 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

Sub StartStoppuhr()
   Zeit = Time
   Start = True
   Zeitmakro
End Sub

Sub StopStoppuhr()
   Start = False
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Erstelle zwei Schaltflächen in deinem Arbeitsblatt, um die Stoppuhr zu starten und zu stoppen.

    • Klicke auf „Entwicklertools“ > „Einfügen“ > „Schaltfläche“.
    • Weise der ersten Schaltfläche die StartStoppuhr-Sub zu und der zweiten die StopStoppuhr-Sub.

Jetzt hast du eine einfache VBA Stoppuhr in Excel, die mit einer Auflösung von 1 Sekunde funktioniert.

Häufige Fehler und Lösungen

  • Fehler: "Anwendungsfehler bei OnTime"

    • Lösung: Stelle sicher, dass du den Code genau kopiert hast und dass keine Konflikte mit anderen Makros bestehen.

  • Fehler: Die Zeit wird nicht aktualisiert

    • Lösung: Überprüfe, ob die Start-Variable korrekt gesetzt wird. Wenn die Stoppuhr nicht startet, könnte es an einer fehlerhaften Initialisierung liegen.

Alternative Methoden

Falls du keine Excel Stoppuhr mit VBA erstellen möchtest, gibt es auch die Möglichkeit, eine Stoppuhr ohne VBA zu implementieren:

  1. Verwende die Funktion "Jetzt()" in einer Zelle, um die aktuelle Zeit zu erfassen.
  2. Nutze die Funktion "Warte()" in Kombination mit der Excel-Berechnung, um die Zeit zu aktualisieren, aber beachte, dass dies nicht so genau ist wie die VBA-Methode.

Zusätzlich kannst du im Internet nach einem Stoppuhr Excel Download suchen, um vorgefertigte Lösungen zu finden.

Praktische Beispiele

Ein Beispiel für die Verwendung der Stoppuhr:

  • Sportliche Zeitmessung: Verwende die Stoppuhr, um Laufzeiten zu messen oder Trainingseinheiten zu timen.
  • Projektmanagement: Halte die Zeit für verschiedene Aufgaben fest, um die Effizienz zu steigern.

Tipps für Profis

  • Optimierung: Überlege, den Code zu optimieren, um mehr Funktionen hinzuzufügen, wie z.B. das Speichern von Rundenzeiten in einer Tabelle.
  • Design: Gestalte die Schaltflächen ansprechend und füge ggf. Grafiken hinzu, um die Benutzeroberfläche zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich die Auflösung der Stoppuhr ändern?
Du kannst die Auflösung ändern, indem du die Zeitspanne in der Application.OnTime-Methode anpasst.

2. Funktioniert die Stoppuhr in älteren Excel-Versionen?
Ja, die VBA-Stoppuhr sollte in den meisten Excel-Versionen ab 2007 funktionieren, solange die VBA-Funktionalität aktiviert ist.

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