Excel Tool zur Auswertung

Sub Datei_öffnen_in_bestimmter_Zelle()
Dim Pfad As String, i As Long, freie As Long
With Sheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
If .Cells(i, "A") > 0 Then
Pfad = ThisWorkbook.Worksheets("Tabelle1").Range("C" & i).Value
freie = Sheets("Tabelle1").Cells(.Rows.Count, "A").End(xlUp).Row + 1
With Workbooks.Open(Filename:=Pfad)
.ActiveSheet.Range("A3N10000").Copy _
Destination:=ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)).Range("A" & freie)
.Close savechanges:=False 'oder true, wenn Änderungen gespeichert werden sollen
End With
End If
Next i
End With
End Sub