Das Archiv des Excel-Forums
zählen im sekundentakt
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!
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
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