Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Pivottabelle aktualisiert sich nicht trotz VBA Anweisung |
09.01.2014 07:01:18 |
Schechner |
|
|
|
09.01.2014 14:40:54 |
Gast68168 |
|
|
|
09.01.2014 15:43:05 |
Schechner |
|
|
|
14.01.2014 13:12:05 |
Gast54008 |
|
|
Von:
Schechner |
Datum:
09.01.2014 07:01:18 |
Views:
1268 |
Rating:
|
Antwort:
|
Thema:
Pivottabelle aktualisiert sich nicht trotz VBA Anweisung |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Pivottabelle aktualisiert sich nicht trotz VBA Anweisung |
09.01.2014 07:01:18 |
Schechner |
|
|
|
09.01.2014 14:40:54 |
Gast68168 |
|
|
|
09.01.2014 15:43:05 |
Schechner |
|
|
|
14.01.2014 13:12:05 |
Gast54008 |
|
|