Hallo,
ich hab eine Datei von der ich auf eine Externe datei darauf zugreif die eine Pivottabellebesitzt. Von der tabelle möchte ich immer den vorletzen wert in meine Datei kopieren.
Das mache ich mit Folgenden code
[CODE]Sub reifen()
Dim frei As Integer
Dim pivotTable As pivotTable
Dim intLetzteZeile As Integer
Dim inspektion As String
frei = Range("F16").End(xlToRight).Column
frei = frei + 1
Workbooks.Open Filename:="Pfad zur datei", ReadOnly:=True
'Fenstertitel in Varibale einlesen
strWindowName = ActiveWindow.Caption
For Each pivotTable In Sheets("AutoFin").PivotTables
pivotTable.RefreshTable
PivotCache.Refresh
Next
intLetzteZeile = Workbooks("Anzahl.xls").Sheets("AutoFin").Cells(Rows.Count, 1).End(xlUp).Row
intLetzteZeile = intLetzteZeile - 2
Workbooks("Anzahl.xls").Sheets("AutoFin").Cells(intLetzteZeile, 2).Copy Destination:=Workbooks("DATEI").Sheets("Mitarbeiterliste 2014").Cells(16, frei)
'For Each pivotTable In Sheets("Anzahl Paletten").PivotTables
' pivotTable.RefreshTable
'Next
Windows(strWindowName).Close SaveChanges:=False
End Sub[/CODE]
wenn ich den Code im Manuell ablaufen lass mit F8, Funktioniert es wie es soll.
Wenn ich dieses jetzt aber mit F5 probiere Kopiert er mir immer den "alten" wert von der PivotTabelle.
Mir kommt das so vor als würde es zu schnell gehen deshalb hab ich schon 2. Sachen probiert.
1. den Befehl [CODE] Application.Wait (Now + TimeValue("0:00:01"))[/CODE]
2. den Befehl [CODE]DoEvents[/CODE]
aber beide ohne erfolg.
ich hoffe ihr könnt mir helfen.
danke
|