Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1556to1560
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
Inhaltsverzeichnis

Pivot per Makro aktualisieren

Pivot per Makro aktualisieren
05.05.2017 13:57:18
Rob
Hi, mein Beitrag von gestern wurde scheinbar geschlosse, sodass ich nicht mehr drauf antworten kann. Hier nochmal:
Hallo,
ich habe folgendes Problem: aktualisiere ich eine Pivot per VBA, dann werden alle anderen Pivot-Tabellen mit aktualisiert.
Bisher genutzter Code:
ActiveSheet.PivotTables("Pivot_Berater").RefreshTable
Ich möchte nun per Makro nur die Pivots im Sheet "aktueller Stand" aktualisieren. Dabei sollen aber alle anderen Pivots, zwar mit selbem Bezug, aber befindlich in anderen Tabellenblättern unbetroffen bleiben.
Dies war der Lösungsansatz von EtoPHG, leider liefert er bei mir Fehler:
Sub PTinWSRefresh(WS_Name As String)
Dim pt As PivotTable
For Each pt In ThisWorkbook.Worksheets(WS_Name)
pt.RefreshTable
Next pt
End Sub
Sub PTRefreshTest()
PTinWSRefresh "aktueller Stand"
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Pivot per Makro aktualisieren
05.05.2017 14:45:40
Luschi
Hallo Rpb,

Dies war der Lösungsansatz von EtoPHG, leider liefert er bei mir Fehler:
ist genau so informativ wie die Behauptung 'im Himmel ist Jahrmakt'
Warum:
- jeder Vba-Fehler wird vom Debugger mit einer Fehlernummer geworfen
- meist wird die fehlerhafte Vba-Zeile mit einer gelben Hintergrundfarbe markiert
- usw.
Aber von diesen wichtigen Infos ist bei Dir nichts zu lesen. Meine Vermutung:
- das Arbeitsblatt hat nicht den Namaen 'aktueller Stand' sondern
  'aktueller Stand ' o. 'aktueller  Stand' (2 Leerzeichen) o. ' aktueller Stand' usw.
- bei ActiveSheet spielt das alles keine Rolle aber hier ist es existenziell!
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Pivot per Makro aktualisieren
05.05.2017 17:37:50
Rob
Hi Luschi,
Sorry, die Fehlermeldung ist:
"Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht"
und gelb hinterlegt wird dieser Teil des Codes:
For Each pt In ThisWorkbook.Worksheets(WS_Name)
Den Namen des Tabellenblattes habe ich geprüft, es ist absolut die identische Schreibweise. Keine überflüssigen Leerzeichen vorne, hinten oder in der Mitte.
Hoffe, das hilft.
VG
Rob
P.S.: Nachts isses kälter als draußen. ;-)
AW: Pivot per Makro aktualisieren
06.05.2017 09:51:38
Luschi
Hallo Rob,
als 1. würde ich folgende 2 Befehle vor die Schleife schreiben:
Debug.Print "'" & WS_Name & "'"
MsgBox ThisWorkbook.Worksheets(WS_Name).Name
For Each pt In ThisWorkbook.Worksheets(WS_Name)
Wenn jetzt der Fehler bei der MsgBox erscheint, kannst Du sicher sein, das der Inhalt
der Variable 'WS_Name' kein gültiger Tabellenname ist.
Gruß von Luschi
aus klein-Paris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige