Wie erstellt man eine Stoppuhr im Excel-Arbeitsblatt?
Wenn Sie eine Stoppuhr in Ihrem Excel-Arbeitsblatt benötigen, kann diese Ihnen helfen, die Zeit zu verfolgen, die zum Abschließen von Aufgaben benötigt wird. Stellen Sie sich vor, Sie hätten eine Start-, eine Stopp- und eine Zurücksetzen-Schaltfläche, um die Stoppuhr zu steuern, wie in der folgenden Abbildung gezeigt. Ein Klick auf die Start-Schaltfläche startet den Timer, die Stopp-Schaltfläche pausiert ihn und die Zurücksetzen-Schaltfläche löscht die Zeitangabe. In diesem Artikel zeigen wir Ihnen Schritt für Schritt, wie Sie mithilfe von VBA-Code eine einfache, aber funktionale Stoppuhr in Excel erstellen.
Erstellen Sie eine Stoppuhr mit drei Schaltflächen mithilfe von VBA-Code
Erstellen Sie eine Stoppuhr mit drei Schaltflächen mithilfe von VBA-Code
Um eine Stoppuhr mit den drei Schaltflächen „Start“, „Stopp“ und „Zurücksetzen“ zu erstellen, führen Sie bitte die folgenden Schritte nacheinander aus.
Fügen Sie zunächst drei Befehlsschaltflächen ein.
1. Klicken Sie auf „Entwickler“ > „Einfügen“ > „Befehlsschaltfläche“ (siehe Abbildung):
2. Ziehen Sie dann mit der Maus, um eine Schaltfläche zu erstellen. Sobald die Schaltfläche eingefügt ist, können Sie ihre Beschriftung anpassen: Klicken Sie dazu auf „Entwickler“ > „Eigenschaften“. Geben Sie im Dialogfeld „Eigenschaften“ im Feld neben „Caption“ die neue Beschriftung „Start“ ein – siehe Abbildungen:
 |  |  |
3. Wiederholen Sie die beiden obigen Schritte, um zwei weitere Schaltflächen einzufügen, und beschriften Sie diese mit „Stopp“ und „Zurücksetzen“ (siehe Abbildung).
4. Verlassen Sie nach dem Einfügen der Schaltflächen den Entwurfsmodus, indem Sie auf „Entwickler“ > „Entwurfsmodus“ klicken.
Erstellen Sie anschließend Ihren VBA-Code.
5. Klicken Sie dann mit der rechten Maustaste auf die Registerkarte des aktuellen Arbeitsblatts und wählen Sie „Code anzeigen“. Kopieren Sie im erscheinenden Fenster „Microsoft Visual Basic for Applications“ den folgenden Code in das Arbeitsblatt-Modul:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Hinweis: Im obigen Code steht „C2“ für die Zelle, in die die Stoppuhrzeit eingetragen wird. „CommandButton1“, „CommandButton2“ und „CommandButton3“ sind die jeweiligen Namen der Schaltflächen. Den genauen Namen einer Schaltfläche entnehmen Sie dem „Namensfeld“ – siehe Abbildung:
3. Formatieren Sie die Zelle für die Stoppuhrzeit.
6. Anschließend formatieren Sie die Zeitzelle als „Text“ und passen bei Bedarf Zellgröße, Schriftart, Schriftfarbe, Hintergrund usw. an – siehe Abbildung:
7. Nachdem Sie die oben genannten Schritte abgeschlossen haben, startet die Zeit sofort, sobald Sie auf die „Start“-Schaltfläche klicken, und stoppt beim Klicken auf die „Stopp“-Schaltfläche. Mit der „Zurücksetzen“-Schaltfläche setzen Sie die Zeit zurück – siehe Abbildung:
Demo: Erstellen einer Stoppuhr mit drei Schaltflächen mithilfe von VBA-Code
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins