traveller
Goto Top

Excel Pivot Tabelle Werte mit Formatierung in neue Date kopieren

Excelversion: 2013

In einer Exceldatei gibt es ein Tabellenblatt zur Erfassung von Daten.
In weiteren Tabellenblättern wurden verschiedene Pivot Tabellen angelegt, die alle auf den gleichen Datenbestand zugreifen. Die Pivo Tabellen haben bereits das Aussehen, wie es am Ende sein soll.
Nun sollen die Pivot Tabellen in eine neue Datei ohne Datenverknüpfung, also die reinen Werte, aber mit Formatierung, kopiert werden.
Dies soll einzeln für jede Pivot Tabelle erfolgen. Je nach dem, welche Pivot Tabelle man braucht.
Ist das mittels Makro möglich?

Vielen Dank für die Hilfe!

Content-Key: 657787

Url: https://administrator.de/contentid/657787

Ausgedruckt am: 29.03.2024 um 10:03 Uhr

Mitglied: eisbein
eisbein 02.03.2021 um 08:53:40 Uhr
Goto Top
Ist das mittels Makro möglich?

Ja
Mitglied: 147669
147669 02.03.2021 aktualisiert um 11:47:27 Uhr
Goto Top
Auch kein Hallo...
So ohne weitere Info zu den Tabellen, Dito: Ja
Glaskugel ...
Sub CopyPivots()
    Dim sh As Worksheet, pv As PivotTable, wbNew As Workbook
    Set wbNew = Workbooks.Add
    For Each sh In Sheets
        For Each pv In sh.PivotTables
            pv.DataBodyRange.Copy
            With wbNew.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
                .PasteSpecial xlPasteAllUsingSourceTheme
                .PasteSpecial xlPasteValues
            End With
        Next
    Next
End Sub
Tschö mit ö.
Mitglied: Traveller
Traveller 02.03.2021 um 12:57:40 Uhr
Goto Top
Danke für eure Hilfe.
Dachte, die Beschreibung ist ausreichend.
Nichts für ungut.
Mitglied: 147669
147669 02.03.2021 aktualisiert um 14:03:28 Uhr
Goto Top
Zitat von @Traveller:
Dachte, die Beschreibung ist ausreichend.
Es fehlt so gut wie alles, keiner weiß wie deine Sheets aussehen wie die Daten auf welche Zielsheets nebeneinander oder untereinander kopiert werden sollen etc. pp. das können wir uns hier nicht zusammenreimen! Stell dir einfach vor wenn du sowas vor die Füße geworfen bekommst aber die Ausgangsdaten nicht kennst. Programmierung steht oder fällt mit präzisen Angaben aber die fehlen hier gänzlich! Was erwartest du also?