ich möchte einer Datei aus einer anderen Datei Tabellenblätter hinzufügen.
leider funkt es nicht
Dat = Label20.Caption 'gib an welche Arbeitsmappe geöffnet ist
Workbooks(Dat).Activate
Application.ScreenUpdating = False
For iRow = 0 To LstRG2.ListCount - 1
If LstRG2.Selected(iRow) Then
iCounter = iCounter + 1
ReDim Preserve arr(1 To iCounter)
arr(iCounter) = Worksheets(LstRG2.List(iRow)).Name
End If
Next iRow
Worksheets(arr).Copy
sFile1 = "AufmassZ"
ActiveWorkbook.SaveAs sPath & sFile1, FileFormat:=52
Workbooks(sFile1).Close savechanges:=False
Workbooks.Open sPath & sFile1
Workbooks(sFile1).Activate
Workbooks(sFile1).Worksheets(arr).Select
Workbooks(sFile1).Worksheets(arr).Move Before:=Workbooks(sFile).Sheets(2) 'sFile gib an wohin die Tabellenblätter kopiert werden sollen.
Wo liegt der Fehler.
Danke!
Gruß
Ludmila