Thema Datum  Von Nutzer Rating
Antwort
17.01.2020 17:42:24 Elias
NotSolved
17.01.2020 18:17:58 Mase
NotSolved
Rot Zellwert mit Zellwert vor 10 Sekunde vergleichen
 17.01.2020 19:14:55 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
17.01.2020 19:14:55		 Views:
454		 Rating:
     
Antwort:
  Ja
Thema:
Zellwert mit Zellwert vor 10 Sekunde vergleichen

Hallo Elias,

OnTime war auch meine erste Idee. Aber du suchst ja eine Möglichkeit eine Schleife zu beenden aus der du sonst nicht rauskommst. Wie sieht denn deine Schleife aus? Ich vermute irgendwann innerhalb der Schleife wird der Wert in D13 geändert. Wie soll das erfolgen? Per Hand oder per Code?

Eine Schleife wie du sie dir vorstellst könnte z.B. so aussehen. Das Schlüsselwort ist Exit Do (oder Exit For je nach schleifenart)

Sub SchleifeBeenden()

  Dim Bezug As Range
  Set Bezug = Range("D13")

  Startwert = Bezug
  Start = Timer
  Do
    'führt irgendetwas in der Schleife aus
    i = i + 1 'Hier wird z.B. ein Zähler hochgezählt
    
    'ändert alle 100000000 Durchläufe also
    'bei mir ca. alle 30sek den Wert in Bezug
    'Kannst du weglassen, da bei dir der Wert
    'in Bezug auf andere Weise verändert wird.
    If i Mod 100000000 = 0 Then Bezug = Bezug + 1
    
    'Hier kommt der interessante Teil
    If Timer > Start + 10 Then 'wenn 10 sek vergangen dann
      If Bezug <> Startwert Then 'wird geprüft, ob Bezug verändert wurde
        Exit Do 'wenn ja, wird die Schleife verlassen
      Else 'sonst
        Startwert = Bezug
        Start = Timer 'weitere 10 sek abwarten
        DoEvents 'aktualisiert alle 10 sek die Ansicht
      End If
    End If
  Loop
  MsgBox "Ende"
End Sub

Gruß Mr. K.

 

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
17.01.2020 17:42:24 Elias
NotSolved
17.01.2020 18:17:58 Mase
NotSolved
Rot Zellwert mit Zellwert vor 10 Sekunde vergleichen
 17.01.2020 19:14:55 xlKing
NotSolved