Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot mit VBA aktualisieren

Pivot mit VBA aktualisieren
06.10.2016 07:57:14
Ludicla
Hey Profis,
ich hab folgenden Code zum aktualisieren einer Pivot Tabelle, bei deren Basis
ein SVERWEIS neu aufgebaut wird.
Im 2. Step soll die Pivot aktualisiert werden - bringt aber immer einen
Bezugsfehler.
Erst beim Drücken des Aktualiesierungsfehlers wird die Pivot korrekt
abgebildet.
Sub auto_open()
MsgBox "Sverweis wird aktualisiert"
Sheets("Zusammenfassung").Visible = True
Sheets("Zusammenfassung").Select
Range("A2153:CF2153").Select
Selection.AutoFill Destination:=Range("A2153:CF12152")
Sheets("Zusammenfassung").Visible = False
Sheets("MZW").Select
Range("A4").Select
ActiveSheet.PivotTables("PivotTable24").PivotCache.Refresh
End Sub
ich hab in der gleichen Datei mehrere Dateien mit jeweils einer Pivot-Tabelle
Liegt es an der Pivot-Tabelle 24 oder an etwas anderen ?
könnt Ihr mir helfen wo der Fehler liegt ?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot mit VBA aktualisieren
06.10.2016 22:02:00
fcs
Hallo Ludicla,
wenn auf dem Tabellenblatt nur ein Pivot-Tabellenbericht plaziert ist, dann kann man den Namen auch durch den Index 1 ersetzen.
Die Select-Anweisungen kann man fast alle Weglassen, wenn man die entsprechenden Objekte direkt anspricht.
Gruß
Franz 
Sub auto_open()
MsgBox "Sverweis wird aktualisiert"
With Sheets("Zusammenfassung")
.Visible = True
.Select 'Eigentlich überflüssig wenn man ohne Zellselektionen arbeitet
.Range("A2153:CF2153").AutoFill Destination:=.Range("A2153:CF12152")
.Visible = False
End With
Dim pvTab As PivotTable
With Sheets("MZW")
.Select 'kann man weglassen - es sei denn dieses _
Tabellenblatt soll zwingend angezeigt werden
Set pvTab = .PivotTables(1)
pvTab.PivotCache.Refresh
'oder
pvTab.RefreshTable
End With
End Sub

Anzeige
AW: Pivot mit VBA aktualisieren
06.10.2016 22:11:12
Piet
Hallo Ludicia
ich habe mir den Code mal angesehen und ihn umgeschrieben. Auf Select kann man verzichten.
Man könnte evtl. sogar auf: Sheets("Zusammenfassung").Visible = True/False verzichten.
Einfach mal ausprobieren ob die With Klammer auch ohne Ein- ausblenden funktioniert?
Die Zeile mit AufoFill habe ich nicht verstanden, was wird da aus der Destination geholt / kopiert?
Ich weiss nich ob ich den Fehler gesehen habe? Prüfe diese Bereiche bitte einmal nach: -unstimmig-
Der 2. Range Wert stimmt nicht !!! -- Müssen diese Bereich für AutoFill nicht exakt übereinstimmen?
.Range("A2153:CF2153").AutoFill
Destination:=.Range("A2153:CF12152")
mfg Piet 
Sub auto_open()
MsgBox "Sverweis wird aktualisiert"
Sheets("Zusammenfassung").Visible = True
With Sheets("Zusammenfassung")
.Range("A2153:CF2153").AutoFill Destination:=.Range("A2153:CF12152")
End With
Sheets("Zusammenfassung").Visible = False
With Sheets("MZW").Range("A4")
.PivotTables("PivotTable24").PivotCache.Refresh
End With
End Sub

Anzeige
AW: Pivot mit VBA aktualisieren
07.10.2016 07:58:54
Ludicla
Danke für die Hilfe
werde gleich mal testen
mfg Ludicla

161 Forumthreads zu ähnlichen Themen

VBA: Alle PivotItems ausblenden
Daniel

Hallo Profis,
wie kann ich per VBA alle PivotItems einer Pivot-Tabelle ausblenden lassen?
Vielen Dank schon einmal.
Daniel
11.09.2008 13:42:00
Thread-ID: 1009110
2 Beiträge
Anzeige
Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Pivot automatisch aktualisieren
Tina

Hallo,
ich möchte ein Pivot Table automatisch aktualisieren lassen. Das Table befindet sich allerdings auf dem gleichen Sheet wie die Daten und da komme ich nicht weiter.
Kann mir jemand einfach, aber effektiv helfen?
30.10.2008 10:47:38
Thread-ID: 1020519
3 Beiträge
Anzeige
alle Pivottabellen in Datei aktualisieren
Julia

Hallo hab folgendes Makro
Sub Pivot() ' Pivot Makro ' Makro am 25.02.2009 von mir aufgezeichnet Sheets("Pivot1").Select Range("A8").Select ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh Sheets("Pivot2").Select Range("A7").Select ActiveSheet.PivotTables("PivotTable4").PivotCach...
26.02.2009 11:08:37
Thread-ID: 1054274
2 Beiträge
Pivot Tabellen aktualisieren
Frank

Hallo zusammen!
In einer Excel-Arbeitsmappe habe ich auf unterschiedlichen Arbeitsblättern Pivot-Tabellen, die sich alle auf den selben Datenberiech beziehen. Nach Änderung von Daten im Datenbereich würde ich gern auf Knopfdruck alle Pivottabellen auf einmal aktualiesieren. Wie ist das mögl...
08.04.2009 15:29:29
Thread-ID: 1067758
3 Beiträge
Pivottabelle aktualisieren wenn externe Daten aktu
Johannes

Hallo,
ich hab eine Excellmappe in der viele externe CVS's als externe Daten referenziert werden und beim Start automatisch aktualisiert werden. in der selben Mappe sind auch einige Pivottabellen, die beim Öffnen automatisch aktualisiert werden. Leider klappt das oftmals nicht. Gibt es ein...
29.06.2009 12:42:23
Thread-ID: 1085099
7 Beiträge
VBA-Funktion in Pivot-Tabelle
Ziegenpeter

Hallo Zusammen!
Vielleicht kann mir jemand bei folgendem Problem helfen:
Ich habe per VBA eine Funktion namens Sigma() geschrieben. Sie funktioniert problemlos. Nun will ich diese Funktion auch in einer Pivot-Tabelle nutzen, das funktioniert nicht.
Beispiel:
Das einzufügende ber...
10.09.2009 20:19:28
Thread-ID: 1101842
3 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
2
6
1
2
6
2
2
2
7
2
1
4
2
4
1
3
3
3
2
2
1
2