Hallo Zusammen,
ich kopiere mit folgendem Code den Inhalt aller Worksheets aus Datei2 in die Worksheets mit gleichem Namen aus Datei1. Nun möchte ich, dass die Tabellenblätter mit einem anderen Namen (inkl. Inhalt, Format etc.) auch in Datei1 übernommen werden. Wo muss ich das Maro um was ergänzen? Meine Versuche mit copy usw. sind leider gescheitert.
Sub xCopy()
Dim QWB As Workbook, ZWB As Workbook
Dim QWS As Worksheet, ZWS As Worksheet
' Ziel, Workbook mit diesem Makro
Set ZWB = ThisWorkbook
' Quelle öffnen
Set QWB = Workbooks.Open("Pfad für Datei2")
For Each QWS In QWB.Worksheets
On Error Resume Next
Set ZWS = ZWB.Sheets(QWS.Name)
On Error GoTo 0
If Not ZWS Is Nothing Then
QWS.Cells.Copy ZWS.Cells(1, 1)
Set ZWS = Nothing
End If
Next QWS
' Schließen der Datei
QWB.Close
End Sub
Viele Grüße