Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivot Tabelle in neuer Datei speichern

Pivot Tabelle in neuer Datei speichern
23.01.2023 16:15:41
Dirk
Hallo zusammen,
ich habe folgendes Makro, um eine Pivot Tabelle in eine neue Arbeitsmappe zu kopieren. Nun würde ich gerne den Code noch so erweitern,
das es eine Dialogbox gibt mit der die neue Datei am vom User festgelegten Ort gespeichert wird und der User auch einen Namen vergeben kann.
Wäre super, wenn Ihr mir hier weiterhelfen könnt. Danke
Sub ExportPivotTable()
    Dim ws As Worksheet, newWB As Workbook, p As PivotTable, strNewName As String
    Set ws = Sheets(2)
    Set p = ws.PivotTables("PivotTab1")
    p.TableRange2.Copy
    Set newWB = Workbooks.Add
         With newWB.Sheets(1).Range("A1")
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteColumnWidths
    End With
      
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot Tabelle in neuer Datei speichern
23.01.2023 16:59:18
Yal
Hallo Dirk,
auf die Schnelle (nicht getestet):
Sub ExportPivotTable()
Dim newWB As Workbook
    Sheets(2).PivotTables("PivotTab1").TableRange2.Copy
    Set newWB = Workbooks.Add
    With newWB.Sheets(1).Range("A1")
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteColumnWidths
    End With
    
    With Application.FileDialog(msoFileDialogSaveAs)
        If .Show Then
            newWB.SaveAs .SelectedItems(1)
        Else
            newWB.Close SaveChanges:=False
        End If
    End With
End Sub
VG
Yal
Anzeige
AW: Pivot Tabelle in neuer Datei speichern
23.01.2023 19:11:28
Dirk
Vielen Dank, Yal. Das konnte ich gebrauchen.

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige