Hoe voeg je een aftellende timer in Excel in?

Als je binnen een beperkte tijd wilt werken met bepaalde gegevens, kun je een aftellende timer invoegen in je werkblad. Wanneer de aftelling is voltooid, verschijnt er een pop-upvenster om je eraan te herinneren. Hier leg ik een VBA-code uit om een aftellende timer in Excel in te voegen.

Aftellende timer invoegen in Excel

Aftellende timer invoegen in Excel

In Excel kan het programma zelf geen aftellende timer bieden, maar je kunt de volgende VBA-code kopiëren om bij te houden hoeveel tijd er overblijft.

1. Selecteer een cel en formatteer deze als tijdformaat door met de rechtermuisknop op de cel te klikken en Celopmaak instellen te selecteren. Klik vervolgens in het venster op Tijd en selecteer 13:30:55 in de lijst Type, en klik tot slot op OK om het venster te sluiten. Zie screenshot:

2. Typ de tijd die je wilt aftellen in de geformatteerde cel. Zie screenshot:

3. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

4. Klik op Invoegen > Module en kopieer vervolgens de volgende VBA-code naar het nieuwe venster.

VBA: Aftellende timer.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Tip: E1 in de bovenstaande code verwijst naar de tijdsinstelling die je hebt ingevoerd in stap 2.

5. Klik op de knop Voltooien of druk op F5 om de aftellende timer te starten. Nu wordt de tijd afgeteld.

6. Wanneer de aftelling is voltooid, verschijnt er een pop-upvenster om je eraan te herinneren.

Tip: Je kunt de aftelling niet stoppen terwijl deze actief is, tenzij je het werkboek sluit.