Das Archiv des Excel-Forums

zählen im sekundentakt

Bild

Betrifft: zählen im sekundentakt
von: Schumi

Geschrieben am: 28.09.2003 17:38:20

hallo zusammen!

ich hab ein kleines problem. ich möchte gern in einer Zelle eines Tabellenblattes einen zähler einbauen. das ding muss im sekundentakt zur letzten zahl jeweils 111 dazuzählen.
also 0, 111, 222, 333, 444, 555, ... und das ganze im sekundentakt.

keine ahnung, wie man so was macht... hiiilfeee!
Bild


Betrifft: AW: zählen im sekundentakt
von: Nepumuk
Geschrieben am: 28.09.2003 18:01:29

Hallo Schmi,
so geht's:

Option Explicit
Dim Halt As Boolean
Public Sub start()
Halt = False
addieren
End Sub
Private Sub addieren()
If Not Halt Then Application.OnTime Time + TimeSerial(0, 0, 1), "addieren"
Cells(1, 1) = Cells(1, 1) + 111
End Sub
Public Sub ende()
Halt = True
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild


Betrifft: AW: zählen im sekundentakt
von: schumi
Geschrieben am: 28.09.2003 18:18:55

ha, das geht!!!
keine ahnung, was dieses code-dingsbums genau tut (man müsste das mal lernen), aber es zählt einwandfrei! danke vielmals!!!
gruss
schumi


 Bild