Aufgrund der guten Hilfe hier im Forum benutze ich unenstehenden Code um aus einer zu öffnenden Datei Zeilenweisen Daten aus verschiedenen Arbeitsblätter in einer anderen Datei zu importieren.
Nun bin ich daran kleine "Unschönheiten" zu beseitigen. So habe ich das Macro kopiert und abgeändert, dass die Daten aus dem anderen Tabellblatt eingelesen werden können.
Wie kann ich verhindern, das die zu öffnende Datei zweimal angegeben werden muss?
Danke und Gruss
Maruseru
Sub REQUESTER()
Dim wbQuelle As Workbook, wsQuelle As Worksheet
On Error GoTo errorExit
Application.Dialogs(xlDialogOpen).Show
Set wbQuelle = ActiveWorkbook
Set wsQuelle = wbQuelle.Worksheets("02_Requester")
With wsQuelle
.Range(.Cells(4, 1), .Cells(4, 57)).Copy
ThisWorkbook.Worksheets("Requester").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0). _
PasteSpecial Paste:=xlValues
End With
Call SCOPING
errorExit:
ThisWorkbook.Activate
End Sub
Sub SCOPING()
Dim wbQuelle As Workbook, wsQuelle As Worksheet
On Error GoTo errorExit
Application.Dialogs(xlDialogOpen).Show
Set wbQuelle = ActiveWorkbook
Set wsQuelle = wbQuelle.Worksheets("04_Scoping")
With wsQuelle
.Range(.Cells(3, 2), .Cells(3, 16)).Copy
ThisWorkbook.Worksheets("Scoping").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0). _
PasteSpecial Paste:=xlValues
End With
errorExit:
ThisWorkbook.Activate
End Sub