ich habe eine Arbeitsmappe, in der ich in einem Arbeitsblatt die Daten aus einer anderen Datei importieren muss.
Der bisherige Code den ich habe, importiert die Daten in ein neues Arbeitsblatt. Wie bekomme ich es hin diese Daten in ein bestimmtes Blatt zu importieren?
Private Sub OP_Import_Click()
Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "\\server\DFS\PROFILES\" & Environ("username") & "\Desktop\PN\"
fileName = Dir(directory & "OPL*.xl?")
Do While fileName ""
Workbooks.Open (directory & fileName)
For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("OP.xlsm").Worksheets.Count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks("OP.xlsm").Worksheets(total)
Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Für Eure Hilfe wäre ich dankbar
Gruß BuStue