Verwenden von Excel für das Timing (Microsoft Excel)
Möglicherweise möchten Sie Excel verwenden, um die verstrichene Zeit für verschiedene Ereignisse aufzuzeichnen. Es gibt zwei Möglichkeiten, wie dies angegangen werden kann: entweder nativ, in Excel oder mit einem Makro.
Wenn Sie kein Makro verwenden möchten, können Sie ganz einfach drei Spalten für Ihr Timing einrichten. Die erste Spalte kann verwendet werden, um die Startzeit aufzuzeichnen, die zweite Spalte die Endzeit und dann die dritte Spalte die verstrichene Zeit (berechnet unter Verwendung einer Formel, die die Startzeit von der Endzeit subtrahiert). Um Zeiten aufzuzeichnen, wählen Sie eine Zelle in den Spalten Startzeit oder Endzeit aus und drücken Strg + Umschalt +: (Doppelpunkt).
Excel gibt die aktuelle Zeit in diese Zelle ein.
Wenn Sie ein Makro verwenden möchten, das einfach die verstrichene Zeit zurückgibt, können Sie Folgendes verwenden:
Public Sub TimeIt() Dim vStartTime As Date vStartTime = Time MsgBox Prompt:="Press the button to end the timing" & vbCrLf _ & "Timing started at " & Format(vStartTime, "hh:mm:ss"), _ Buttons:=vbOKOnly, _ Title:="Time Recording Macro" ActiveCell.Value = Time - vStartTime End Sub
Dieses Makro zeichnet eine Startzeit (in vStartTime) auf und zeigt dann ein Meldungsfeld an. Wenn Sie auf die Schaltfläche im Meldungsfeld klicken, wird die Differenz zwischen der aktuellen Zeit und der Startzeit in der aktuellen Zelle gespeichert. (Sie müssen sicherstellen, dass die aktuelle Zelle mit einem der Zeitformate formatiert ist.)
Das obige Makro eignet sich sehr gut zum Aufzeichnen von Kurzereignissen, bei denen Sie Excel nicht für andere Aufgaben verwenden müssen. Wenn Sie längere Ereignisse aufzeichnen müssen, ist ein anderer Ansatz angebracht. Die folgenden Makros arbeiten zusammen. Der erste zeichnet eine Startzeit auf; das ist alles was es tut. Die zweite verwendet diese aufgezeichnete Zeit, um eine verstrichene Zeit zu berechnen, die in der aktuell ausgewählten Zelle abgelegt wird.
Global vStTime Sub StartTiming() vStTime = Time End Sub Sub EndTiming() ActiveCell.Value = Time - vStTime End Sub
Sie können diese beiden Makros problemlos der Symbolleiste für den Schnellzugriff oder verschiedenen Symbolleistenschaltflächen zuweisen, mit denen der Timing-Prozess gestartet bzw. gestoppt wird.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (11193) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: