Sub BlattAktualisieren()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
ExportDatei = "C:\Users\TestUser\Desktop\TestDatei.xlsx"
If ExportDatei = "Falsch" Then Exit Sub
Set WBQuelle = Workbooks.Open(ExportDatei)
bereinander liegen
WBZiel.Sheets("Controlling").Pictures.Delete
WBZiel.Sheets("Controlling").ChartObjects.Delete
WBZiel.Sheets("Controlling").DrawingObjects.Delete
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