Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bearbeitungszeit feststellen

Gruppe

Bearbeiten

Problem

Wie kann ich die Dauer der Laufzeit eines Makros feststellen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub TimerTest()
   Dim dteStart As Date, dteEnde As Date
   Dim iCounter As Single
   Application.ScreenUpdating = False
   dteStart = Timer
   For iCounter = 1 To 5000
      If iCounter Mod 1000 = 0 Then
         Application.StatusBar = _
            "Besuche Zeile " & iCounter & "..."
      End If
      Cells(iCounter, 1).Select
   Next iCounter
   Range("A1").Select
   Application.StatusBar = False
   dteEnde = Timer
   MsgBox "Bearbeitungszeit: " & Format _
      (dteEnde - dteStart, "0.00") & " Sekunden..."
End Sub