Microsoft Excel

Herbers Excel/VBA-Archiv

Sekundenzähler



Excel-Version: 9.0 (Office 2000)

Betrifft: Sekundenzähler
von: Stefan
Geschrieben am: 30.05.2002 - 01:07:29

Ich möchte gerne von 0 bis 20 Sekunden zählen und jede Sekunde im Direktfenster anzeigen lassen. Wie muss ich im Modul programmieren um dieses zu ermöglichen?

  

Re: Sekundenzähler
von: WernerB.
Geschrieben am: 30.05.2002 - 10:48:42

Hallo Stefan,

teste mal diesen Code:


Option Explicit
Sub ClockStart()
Dim As Byte
    For i = 1 To 20 Step 1
      Application.Wait Now TimeSerial(0, 0, 1)
      Debug.Print i
    Next i
End Sub

Viel Erfolg wünscht
WernerB.