Schleife mit timer

Dieses Thema im Forum "Excel und VBA" wurde erstellt von Jenne, 6 Mai 2008.

  1. Jenne

    Jenne
    Expand Collapse
    New Member

    Registriert seit:
    14 Januar 2007
    Beiträge:
    182
    Zustimmungen:
    0
    Hallo zusammen,

    gibt es eine Möglichkeit in einer Schleife eine Funktion (Timer) einzubauen, die bewirkt, dass - sollte das Programm nicht innerhalb von z.B. 10sek fortlaufen -die Schleife verlassen wird?

    Vielen Dank vorab.

    Gruß
    Jenne
     
  2. bst

    bst
    Expand Collapse
    <font color="#FF0000">Excel Moderator</font><br><i

    Registriert seit:
    26 Oktober 2004
    Beiträge:
    3.063
    Zustimmungen:
    1
    Hi Jenne,

    nimm eine globale Variable und Application.OnTime. Du musst in Deiner Schleife die Variable abfragen und auch DoEvents aufrufen.

    cu, Bernd
    --
    Code:
    Option Explicit
    
    Public bolTimer As Boolean
    
    Sub x()
       Dim i As Long, j As Integer
       
       bolTimer = False
       Application.OnTime Now + TimeSerial(0, 0, 3), "EndTimer"
       
       For i = 1 To Rows.Count
          For j = 1 To Columns.Count
             DoEvents
             If bolTimer = True Then Exit Sub
             Cells(i, j) = i & " : " & j
          Next
       Next
    End Sub
    
    Sub EndTimer()
       bolTimer = True
       Debug.Print "Timer abgelaufen"
    End Sub
     
Die Seite wird geladen...

Diese Seite empfehlen