Ich habe dieses Makro gefunden und will fragen, ob man, da es ja alle Formatierungen des eingelesenen Balttes mitübernimmt, auch die Zoomeinstellung, die bei 88% liegt, mitübernehmen kann ?
Danke für Eure Antwort
chris
Private Sub CommandButton1_Click()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xls),*.xls", , "Bitte _
die Datei xyz.xls öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'Kopieren der Tabelle Tabelle1 aus Datei xyz
Set WSZiel = WBZiel.Worksheets.Add(After:=WBZiel.Sheets(WBZiel.Sheets.Count))
WBQuelle.Worksheets("Report").Cells.Copy WSZiel.Cells(1)
WSZiel.Name = "Report " & WBQuelle.Name
WBQuelle.Close False
Set WBZiel = Nothing
Set WBQuelle = Nothing: Set WSZiel = Nothing
End Sub