Zeitliche Schleifendauer
Schwed25
habe mit folgendem Code ein Problem:
Sub Auswertungen_1_6()
' Auswertungen_erstellen_1 Makro
Dim i As Integer
For i = 1 To 6
Name = Application.Range("B2")
Range("AM10").Value = ActiveSheet.PivotTables("PivotTable1").PivotFields("HNr").PivotItems( _
_
i).Name
Range("F2").Select
Application.OnTime Now + TimeValue("00:00:45"), "Erstellen_pdf"
Next i
End Sub
Es soll aus einer Pivot Tabelle alle Einträge aus einem Berichtsfilter ausgeführt werden.
Dannach soll 45 Sekunden gewartet werden, damit alle Daten geladen werden können. Dann soll ein anderes Makro ausgeführt, damit ein pdf aus dem File erstellt werden kann.
Leider werden, derzeit alle Einträge der Pivot Tabelle durchgespielt und dann nach 45 Sekunden 6 mal dasselbe pdf erstellt.
Vielleicht kann mir jemand weiterhelfen.
VG,
Jonas