Alle Daten aktualisieren während VBA läuft

Hi Leute,
ich habe eine Frage an euch, da ich am verzweifeln bin. Habe keine große Erfahrungen mit VBA.
Ausgangssituation: Es besteht bereits ein Code (der auch funktioniert), der in einer Exceltabelle die Worksheets durchrotiert. Diese verschiedenen Sheets sind quasi Clons aus anderen Exceldateien welche via Pivot Zugriff auf eine Datenquelle haben.
Das Loopsheet ist quasi eine Demoansicht der anderen Ecxelfiles.
Die Daten sollen sich automatisch aktualisieren, sprich neue Zahlen mittels Pivot ziehen und dann in dem Loop angezeit werden. Wie muss ich den basierenden Code anpassen um dies zu ermöglichen? Bisher habe ich in dem Excel File eingestellt automatische Aktualisierung, diese wird jedoch durch den Loop blockiert.
Aktueller Code lautet:


Sub Start_Klicken()
Dim x As Long
Dim name As String
x = 1
Do While x

Bitte helft mir :)
Viele Grüße
Simon

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Simon,
Du brauchst:
a) einen Startknopf mit der Zuweisung des Makros Start_Klicken und einen Beendenknopf mit der Zuweisung Stop_Klicken und folgenden Code in einem Modul:

Option Explicit
' Nächste Pivottabelle anzeigen, 0 = Stoppt Präsentation
Dim dNextStartTime As Double
' Anzeigedauer in Sekunden von Blättern mit Pivottabellen
Const iWaitLoopSecnds As Integer = 10
Sub Start_Klicken()
If dNextStartTime = 0 Then
dNextStartTime = Now()
ShowWS
End If
End Sub
Sub Stop_Klicken()
If dNextStartTime = 0 Then Exit Sub
On Error Resume Next
Application.OnTime EarliestTime:=dNextStartTime, Procedure:="ShowWS", Schedule:=False
dNextStartTime = 0
On Error GoTo 0
End Sub
Sub ShowWS()
Static lWSIndex As Long
Dim pts As PivotTable
If dNextStartTime = 0 Then Exit Sub
If lWSIndex = 0 Or lWSIndex = ThisWorkbook.Worksheets.Count Then
lWSIndex = getNextWSix(1)
Else
lWSIndex = getNextWSix(lWSIndex + 1)
End If
If lWSIndex = 0 Then lWSIndex = getNextWSix(1)
With ThisWorkbook.Worksheets(lWSIndex)
For Each pts In .PivotTables
With pts.PivotCache
.Refresh
End With
Next pts
.Activate
End With
dNextStartTime = Now + TimeSerial(0, 0, iWaitLoopSecnds)
Application.OnTime EarliestTime:=dNextStartTime, Procedure:="ShowWS"
End Sub
Function getNextWSix(lWSIndex As Long) As Long
Dim lIx As Long
For lIx = lWSIndex To ThisWorkbook.Worksheets.Count
If ThisWorkbook.Worksheets(lIx).PivotTables.Count > 0 Then
getNextWSix = lIx
Exit For
End If
Next lIx
End Function

Start klicken und jederzeit auf das Blatt mit den Buttons wechseln und Beenden klicken.
Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

Alle Daten aktualisieren während VBA läuft

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread