Datei mit Bedingung aktualisieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
mein ursprünglicher Beitrag, war ein bisschen knapp verfasst.
Anbei ein paar detaillierte Informationen, wie die Aktualisierung aufgebaut ist und wie ich es gerne optimieren möchte. :)
Ich habe insgesamt fünf Makros in der Datei im Einsatz.
Über das erste Makro werden die anderen Makros der Reihe nach ausgeführt.
Anschließend wird der Ablauf durch das Makro "StartEs" wieder erneut gestartet.
Es ist somit eine Endlosschleife.
Ich habe einen Button, auf dem ich das Makro stoppen könnte.
Da sich die Excel Datei jedoch ständig, aktualisiert ist es sehr schwierig die Aktualisierung zu stoppen.
In der Regel stoppe ich es aktuell, durch drücken der "ESC" Taste.
Jetzt stellt sich mir die Frage, ob es möglich ist, das Makro automatisch zu stoppen, wenn ein bestimmtes Ereignis eintritt.
-> Sprich es hat sich etwas in Tabelle1 Spalte C-H und Zeile 7-13 geändert.
Lässt sich so etwas überhaupt umsetzen?
Das Makro stoppt selbständig, sobald das entsprechende Ereignis eintritt und ich kann es anschließend wieder manuell starten?
1. Makro


Option Explicit
Sub StartMakro()
Datenactual
PivotRefresh
StartEs
End Sub

2. Makro


Option Explicit
Sub Datenactual()
Windows("Daten.xlsm").Activate
Application.DisplayAlerts = False
ActiveWorkbook.RefreshAll
End Sub

3. Makro


Option Explicit
Sub PivotRefresh()
Windows("Daten.xlsm").Activate
Dim pc As PivotCache
For Each pc In ActiveWorkbook.PivotCaches
If pc.SourceType = xlExternal Then pc.BackgroundQuery = False
pc.Refresh
Next
End Sub

4. Makro
Option Explicit
Dim iTimerSet As Double
Public Sub StartEs()
iTimerSet = Now + TimeValue("00:00:01")
Application.OnTime iTimerSet, "StartMakro"
End Sub
5. Makro


Public Sub StopEs()
Application.OnTime iTimerSet, "StartMakro", , False
End Sub

Über Tipps & Tricks würde ich mich sehr freuen.
Viele Grüße
Max

Private Sub Worksheet_Change(ByVal Target As Range) If InStr(Target.Address, ";") > 0 Or _ InStr(Target.Address, ":") > 0 Then Exit Sub If Not Intersect(Target, Range("C7:H13")) Is Nothing Then StopEs End If End Sub

Sub StartMakro() Dim dblPruefung as Double dblPruefung = WorksheetFunction.Sum(Range("C7:H13")) Datenactual PivotRefresh If WorksheetFunction.Sum(Range("C7:H13")) = dblPruefung Then StartMakro Else StopEs End if End Sub

Hallo Heli,
das ist wirklich spitze.
Wirklich genial deine Lösung.
Es läuft jetzt weiter wenn ich es erneut starte.
Jedoch stoppt es noch wenn das Ergebnis "verschwindet" sprich der Wert auf 0 geht.
Es wäre noch schön wenn das Makro dann weiter läuft.
Also die Bedingung Kleiner oder gleich Summe, dann weiter laufen, wenn größer dann Stop.
Kann man zwei Bedingungen hinterlegen?
Dann müsste es doch funktionieren oder?
Ergebnis weg (Makro läuft weiter) oder Ergebnis bleibt unverändert (Makro läuft weiter), wenn Ergebnis größer, hält das Makro an.
Das mit dem Laufzeitfehler hat leider noch nicht geklappt.
In einem anderen Beitrag bin ich auf diesen Hinweis gestoßen...
"...Fehler war, dass ich zum einen den ersten Timer per Makro beendem wollte, obwohl dieser schon abgelaufen war. Weiterhin startete der zweite Timer erst, nachdem die UF geschlossen wird, da diese vor Start des Timers geladen wurde.
Habe generell festgestellt, dass die Reihenfolge von starten und beenden der OnTime-Funktion besonderer Beachtung bedarf."
http://www.office-loesung.de/ftopic641137_0_0_asc.php
Könnte das auch bei mir zu dem Laufzeitfehler führen?
Vielen Dank nochmal für deine tolle Hilfe! :)
Grüße
Max

Beliebteste Forumthreads (12 Monate)

Datei mit Bedingung aktualisieren

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread