stehe vor folgendem Problem. Ich möchte per VBA aus mehreren Dateien das 1.Sheet kopieren und in meine Zieldatei kopieren. Den Code für das öffnen habe ich schon. Da ich das über ein Array mache, habe ich dann aber das Problem, dass ich das Sheet aus meinen Quelldateien nicht kopieren kann (quelldateien(l).Worksheets(1).Copy after:=zieldatei.Worksheets(2))
Hier erst mal mein bisheriger Code:
Sub öffnen()
Dim l As Long
Dim quelldateien As Variant
Dim zieldatei As Workbook
Dim wrks As Worksheets
Set zieldatei = ActiveWorkbook
l = 0
quelldateien = Application.GetOpenFilename("Excel-Dateien (*.xls),*.xls", MultiSelect:=True)
If IsArray(quelldateien) Then
For l = LBound(quelldateien) To UBound(quelldateien)
Workbooks.Open quelldateien(l)
quelldateien(l).Worksheets(1).Copy after:=zieldatei.Worksheets(2)
quelldateien(l).Close
Next l
Else
MsgBox "Sie haben keine Arbeitsmappe ausgewählt!", vbInformation
End If
End Sub
Weiß jemand Rat?
grüße
Sabbel