Excel Tool zur Auswertung
28.11.2018 19:56:42
mondo
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
Der Code ist aber dafür ausgelegt dass die Überprüfung ab A1 anfängt und die dazugehörige Datei einliest die in Spalte C steht.
Nun habe ich aber eine andere Range.
Die neue Range für die Überprüfung größer als 0 liegt in der neuen Excel Datei zwischen AN90 bis AN189 und der zugehörige Pfad in Spalte AP90 bis AP189.
Danke im voraus.
Grüße