Hey Leute,
ich brauch mal bitte etwas Hifle und zwar möchte ich einen bestimmten Inhalt aus mehreren Workbooks kopieren. Die sind alle gleich, heißen auch gleich und haben nur einen unterschiedlichen Pfad. Jetzt habe ich an einen Array gedacht weiß aber nicht so ganz wie man das implementiert. Für die Kopierfunktion habe ich etwas aus dem Internet benutzt, was auch funktioniert wenn es Copy und Paste von einem zum anderen ist . Mein momentaner code wie folgt:
Sub Copy_Paste_Below_Last_Cell()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
Set wsCopy = Workbooks("New Data.xlsx").Worksheets("Export 2")
Set wsDest = Workbooks("Reports.xlsm").Worksheets("All Data")
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("A2:D" & lCopyLastRow).Copy _
wsDest.Range("A" & lDestLastRow)
End Sub
Jetzt möchte ich bei Copy ein Array haben.
VG Tung
|