ich möchte Dateien aus einer Mappe in eine andere Excel - Mappe kopieren. Der Code funktioniert aber nicht. Kann mir jemand einen Tip geben, woran es liegt?
Viele Grüße und Danke!
Dani
Sub fonds()
Dim allinoneswap As String
allinoneswap = "H:\CCXLS\C\AllIn"
Application.Workbooks.Open AllInDim mappe As Workbook
Dim fonds As Workbook
Application.ScreenUpdating = False
Set mappe = Workbooks("mappe")
Set fonds = Workbooks("fonds")
mappe.Worksheets(3).Range("h18:h47").Copy
swaxx.Worksheets(1).Activate
ActiveSheet.Paste Destination:=Worksheets(2).Range("e10:e39")
Application.ScreenUpdating = True
Set mappe = Nothing
Set fonds = Nothing
End Sub