Hallo :)
Hätte eine Frage und zwar würde ich gerne ein gesamtes Tabellenblatt einer externen Datei in eine Zieldatei (Excel) nur mit Werten inklusive Formatierung - ohne Formeln - kopieren und auch noch umbenannt wird. Stecke gerade fest und weiß leider nicht mehr weiter :( ......
Hier der Code:
Dim wkbQuelle As Excel.Workbook
Dim wkbZiel As Excel.Workbook
Dim Neuname As String
Set wkbZiel = Application.Workbooks.Add
'Auswahl der Arbeitsmappe (externe Datei)
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsx*", , "Bitte die Datei RISK_3 zum Kopieren öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
Set wkbQuelle = Workbooks.Open(ExportDatei)
'Arbeitsblatt in die Zieldatei mit Werten und Formatierung kopieren
wkbQuelle.Worksheets("4").Copy After:=wkbZiel.Worksheets(wkbZiel.Sheets.Count)
With Range("A1")
'nur die Werte werden in die neue Datei übertragen
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'nur die Formate werden in die neue Datei übertragen
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
ActiveSheet.Name = "RISK_3"
wkbQuelle.Close SaveChanges:=False
End Sub
Hoffe ihr könnt mir weiterhelfen - Dankeschön :)
LG
|