Thema Datum  Von Nutzer Rating
Antwort
08.11.2011 01:12:43 Ray
NotSolved
Blau Endlosschleife ist nicht zu stoppen
 08.11.2011 02:23:55 Till
NotSolved
08.11.2011 21:56:05 Ray Banton
NotSolved
08.11.2011 22:07:23 Till
NotSolved
08.11.2011 22:18:03 Ray
NotSolved
09.11.2011 00:36:56 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
08.11.2011 02:23:55		 Views:
1129		 Rating:
     
Antwort:
  Ja
Thema:
Endlosschleife ist nicht zu stoppen		 
Option Explicit
Dim break As Boolean
Private Sub CommandButton1_Click()
Dim t As Date
t = DateAdd("s", 10, Now())
    
    break = False
    While break = False
        If Now() >= t Then
            t = DateAdd("s", 10, Now())
            ActiveWorkbook.Save
            Cells(1, 1) = Format(t, "hh.mm.ss")
        End If
        If ActiveCell.Value = "x" Then break = True
        DoEvents
    Wend

End Sub

Die Schleife behindert das arbeiten mit Excel nicht weiter, dafür sorgt das "DoEvents", abgebrochen wird wenn du eine Zelle mit "x" drinnen aktivierst. Google mal nach "OnKey", sollte kein Problem sein die Schleife über Tastenkombinationen zu unterbrechen, oder auf jede andere erdenkliche Weise...

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.11.2011 01:12:43 Ray
NotSolved
Blau Endlosschleife ist nicht zu stoppen
 08.11.2011 02:23:55 Till
NotSolved
08.11.2011 21:56:05 Ray Banton
NotSolved
08.11.2011 22:07:23 Till
NotSolved
08.11.2011 22:18:03 Ray
NotSolved
09.11.2011 00:36:56 Till
NotSolved