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

Stoppuhr Millisekunden

Forumthread: Stoppuhr Millisekunden

Stoppuhr Millisekunden
13.04.2002 00:51:28
Georg
Hallo,

für eine Stoppuhr benutze ich u.a. auch folgendes Makro, dass mit der Formatierung für Sekunden einwandfrei funktioniert.Mit der Formatierung für Millisekunden erfolgt die Fehlermeldung

Die NumberFormat-Eigenschaft des Range Objekts kann nicht festgelegt werden.

Sub ZeitFestLegen()
Application.ScreenUpdating = False
c = True
Zeitangabe = Time + TimeSerial(0, 0, 1)
Selection.NumberFormat = "hh:mm:ss,00"
Application.OnTime Zeitangabe, "eintragen"

End Sub


Mit der Formatierung "hh:mm:ss" gibt es keine Probleme.

Kann mir jemand helfen?
Gruss und vielen Dank; Georg

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Stoppuhr Millisekunden
13.04.2002 07:50:21
Hajo
Hallo Georg

Ersetze das Kommma durch ein Punkt

Gruß Hajo

Re: Stoppuhr Millisekunden
13.04.2002 08:14:10
Erich
Hallo Georg,
kannst Du mir mitteilen, wie Du die Stoppuhr ablaufen lässt ?
Danke Erich
Re: Stoppuhr Millisekunden
13.04.2002 09:22:09
Georg
Hallo, Hajo

Vielen Dank für Deinen Hinweis. Ich habe in dieser Richtung das auch schon ausprobiert.
Bei Ersetzen von Komma durch Punkt wird nur die aufgerufene Zeit mit Millisekunden angezeigt.
Vom Aufbau her sieht das bei mir so aus
In A1 lasse ich die aktuelle Zeit als Wert einsetzen; in B1 die "laufende Zeit".
In C 1 ergibt der Unterschied (B1 minus A1)die Summe, die ich bei Stop in eine Liste übertragen lasse.
Die Sekunden werden auch immer mitgezählt und auch in die Liste übernommen.
Problem, wie beschrieben,dass ganze auch mit den Millisekunden.
Vielleicht gibts da zu ja auch noch nen Ratschlag.
Vorerst schon mal vielen Dank und einen schönen Tag; Georg

Anzeige
Re: Stoppuhr Millisekunden
13.04.2002 09:25:51
Georg
Hallo, Erich

hier das ABlaufmakro

Sub ZeitFestLegen()
Application.ScreenUpdating = False
c = True
Zeitangabe = Time + TimeSerial(0, 0, 1)
Selection.NumberFormat = "hh:mm:ss.00"
Application.OnTime Zeitangabe, "eintragen"

End Sub

Sub eintragen()
Application.ScreenUpdating = False
Sheets("Stoppuhr").Cells(1, 2).Value = Time
Selection.NumberFormat = "hh:mm:ss.00"
If c = True Then ZeitFestLegen


End Sub

Das Problem der Millisekunden habe ich ja beschrieben.
Gruß;Georg

Anzeige
Re: Stoppuhr Millisekunden
13.04.2002 09:27:20
Hajo
Hallo Georg

Stopuhr mit Milisekunden habe ich auch noch niht gemacht.

Meine Stopuhr (Sekunden) habe ich so realisiert. Ein CommandButton auf dem Register Beschriftet mit Start und folgenden Code hinter


Gruß Hajo

Re: Stoppuhr Millisekunden
13.04.2002 12:23:10
Erich
Hallo Georg,
Danke für die prompte Antwort, es passt !
Gruss Erich
Anzeige
Re: Stoppuhr Millisekunden
13.04.2002 14:40:20
Georg
Hallo, Hajo

Vielen Dank und ein schönes Wochenende.
Gruß;Georg

;
Anzeige

Infobox / Tutorial

Stoppuhr mit Millisekunden in Excel erstellen


Schritt-für-Schritt-Anleitung

Um eine Stoppuhr in Excel zu erstellen, die auch Millisekunden anzeigt, kannst du folgendes VBA-Makro verwenden. Stelle sicher, dass du die richtige Formatierung für die Zeit in Millisekunden nutzt.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul über Einfügen > Modul hinzu.

  3. Kopiere und füge den folgenden Code in das Modul ein:

    Dim c As Boolean
    Dim Zeitangabe As Date
    
    Sub ZeitFestLegen()
        Application.ScreenUpdating = False
        c = True
        Zeitangabe = Now + TimeSerial(0, 0, 0) + TimeValue("00:00:01")
        Selection.NumberFormat = "hh:mm:ss.00"
        Application.OnTime Zeitangabe, "eintragen"
    End Sub
    
    Sub eintragen()
        Application.ScreenUpdating = False
        Sheets("Stoppuhr").Cells(1, 2).Value = Now
        Selection.NumberFormat = "hh:mm:ss.00"
        If c = True Then ZeitFestLegen
    End Sub
  4. Gehe zurück zu Excel und erstelle einen Button, um das Makro zu starten. Du kannst dies über Entwicklertools > Einfügen > Button (Formsteuerelement) tun.

  5. Weise das Makro ZeitFestLegen dem Button zu.

Jetzt kannst du die Stoppuhr in Excel starten und sie zeigt dir die Uhrzeit mit Millisekunden an.


Häufige Fehler und Lösungen

  • Fehler: "Die NumberFormat-Eigenschaft des Range Objekts kann nicht festgelegt werden."

    • Lösung: Stelle sicher, dass du das Komma im Zeitformat durch einen Punkt ersetzt: hh:mm:ss.00.
  • Problem bei der Darstellung der Millisekunden:

    • Überprüfe, ob du die richtige Formatierung für Millisekunden in der Zelle anwendest: hh:mm:ss.00.

Alternative Methoden

Wenn du eine Stoppuhr ohne VBA verwenden möchtest, kannst du auch die Funktion JETZT() nutzen, um die Zeit manuell zu aktualisieren und die Differenz zu messen. Dies ist jedoch weniger präzise und eignet sich nicht für echte Millisekunden.


Praktische Beispiele

Hier ist ein Beispiel, wie du die Stoppuhr in einem Arbeitsblatt einrichten kannst:

  1. Trage in Zelle A1 die Startzeit ein, z.B. =JETZT().
  2. In Zelle B1 kannst du die laufende Zeit mit dem Makro erfassen.
  3. In Zelle C1 berechnest du die Differenz mit der Formel:
    =B1-A1

Diese Zelle zeigt dir die Zeitdifferenz in Stunden, Minuten und Sekunden einschließlich Millisekunden an.


Tipps für Profis

  • Nutze die VBA Timer-Funktion, wenn du genauere Zeitmessungen benötigst.
  • Du kannst das Design deiner Stoppuhr anpassen, indem du die Formatierung der Zellen änderst, um die Anzeige klarer und ansprechender zu gestalten.
  • Experimentiere mit dem Application.Wait-Befehl, um präzisere Pausen in deinem VBA-Code einzubauen.

FAQ: Häufige Fragen

1. Wie kann ich die Stoppuhr anhalten? Um die Stoppuhr anzuhalten, kannst du eine weitere Funktion erstellen, die den Wert von c auf False setzt und damit die Zeiterfassung stoppt.

2. Kann ich die Stoppuhr auch auf Zehntelsekunden einstellen? Ja, indem du das Zeitformat auf hh:mm:ss.000 anpasst und die Berechnungen entsprechend änderst.

3. Funktioniert das auch in Excel Online? Das VBA-Makro funktioniert nur in der Desktop-Version von Excel. In Excel Online sind VBA-Funktionen nicht verfügbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige