Herbers Excel/VBA-Archiv

zählen im sekundentakt

• zählen im sekundentakt von Schumi vom 28.09.2003 17:38:20
  • AW: zählen im sekundentakt - von Nepumuk am 28.09.2003 18:01:29
    • AW: zählen im sekundentakt - von schumi am 28.09.2003 18:18:55

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