Ich möchte alle sheets eines Workbooks in ein einderes Workbook kopieren.
Wisst ihr eine elegante Lösung?
Gruß Philipp
Function copy()
Das hab ich erstellt. Geht aber bestimmt noch schöner
With bmwWbook
For i = 1 To .Sheets.Count
.Sheets(i).copy After:=Workbooks(ThisWorkbook.Name).Sheets(1)
Next i
End With
End Function
Sub Kopieren()
With Workbooks("Quellmappe.xls")
.Worksheets.Copy After:=Workbooks(ThisWorkbook.Name).Sheets(1)
End With
End Sub
Gruß Matthias