Hallo zusammen,
ich habe folgendes Anliegen. Mit dem u.g. Code kopiere ich zwei Tabellenblätter in eine neue Datei. Soweit OK. Ich möchte aber eigentlich aus dem Sheet "Altdaten" nur die Spalten A-C, F,J kopieren und in dem zweiten Blatt " Neudaten" nur die vorhandene Pivot per snapshot kopieren und in die neue Datei einfügen ( via ExcelCam?)
Ich weiß aber nicht, wie der Code dafür entsprechend umgebaut werden muss.
Könnt ihr mir bitte helfen?
Sub Report_Daten()
Dim strDateiname As String
ChDir "Q:\Test1\Test2\"
strDateiname = Application.GetSaveAsFilename _
("Test_Report_" & Date & ".xlsx", "Microsoft Excel-Dateien (*.xlsx),*.xlsx")
If TypeName(strDateiname) = "String" Then
Worksheets(Array("Altdaten", "Neudaten")).Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveWorkbook.SaveAs strDateiname
ActiveWorkbook.Close
MsgBox "Fertig! Datei gespeichert unter:" & vbLf & vbLf & strDateiname, vbOKOnly + _
vbInformation, "Datei wurde gespeichert"
End If
End Sub
vielen Dank schon mal an euch