Pivot Tabelle in neuer Datei speichern
23.01.2023 16:15:41
Dirk
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