Microsoft Excel

Herbers Excel/VBA-Archiv

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