Komplettes Excel Sheet kopieren mit Formaten
26.09.2019 11:31:26
Sabrina
ich würde gerne ein Excel-Sheet aus einer anderen Mappe komplett (mit Diagrammen, Bilder, Zellwerte,...) in ein Excel-Sheet der aktuellen Mappe kopieren. Ich habe folgenden Code dafür bisher:
Sub BlattAktualisieren()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
'Der Pfad ist hier nur Beispielhaft
ExportDatei = "C:\Users\TestUser\Desktop\TestDatei.xlsx"
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'Vorhandene Grafiken, Bilder und Diagramme im Zielsheet entfernen
WBZiel.Sheets("Controlling").Pictures.Delete 'Bilder löschen
WBZiel.Sheets("Controlling").ChartObjects.Delete 'Diagramme löschen
WBZiel.Sheets("Controlling").DrawingObjects.Delete 'Formen/Textfelder löschen
'kopieren des Blattinhaltes und Schließen der Quell-Datei
With WBQuelle
.Sheets("Cockpit").Range("A1:Z500").Copy WBZiel.Sheets("Controlling").Range("A1")
.Close savechanges:=False
End With
WBZiel.Sheets("Controlling").Activate
Application.ScreenUpdating = True
End Sub
Der Code funtkioniert soweit und kopiert alles ins Ziel-Sheet. Jedoch kopiert er bei den Diagrammen nicht die Formatierung der Datenbeschriftungen mit. Sprich aus dem Euro-Format wird ein einfaches Zahlenformat. Wie kann ich angeben, dass diese mit in das Ziel-Sheet kopiert werden?Vielen Dank :)