Ich möchte alle Tabellen aus einer .xlsm Datei in eine .xlsx Datei kopieren. Da die .xlsm Datei unterschiedliche Anzahl von Tabellen ausweisen kann, nach einem update, suche ich nach einem geeigneten Code.
Ansatzweise habe ich damit begonnen, bin aber mit meinem Latein am Ende.
Hoffe ihr könnt helfen.
Gruss Richi
Sub xCopy3()
Dim QWB As Workbook, ZWB As Workbook
Dim i As Integer
Workbooks.Open "C:\Users\Richi\Desktop\Ziel " & Year(Date) & ".xlsx" ' Ziel Datei wird _
geöffnet
Set ZWB = Workbooks("Ziel " & Year(Date) & ".xlsx") ' Ziel _
Datei
Set QWB = ThisWorkbook _
' Quelle, Workbook mit diesem Makro
Worksheets.Copy Workbooks("Ziel " & Year(Date) & ".xlsx").Worksheets(1) ' Tabelle 1 wird _
kopiert
End Sub