Microsoft Excel

Herbers Excel/VBA-Archiv

Excel Tool zur Auswertung


Betrifft: Excel Tool zur Auswertung
von: mondo
Geschrieben am: 28.11.2018 19:56:42

Hallo ich habe folgenden Code zum Einlesen meiner Dateien:











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

  

Betrifft: AW: Excel Tool zur Auswertung
von: Bernd
Geschrieben am: 29.11.2018 07:15:09

Servus mondo,

ungetestet...

Sub Datei_öffnen_in_bestimmter_Zelle()
Dim Pfad As String, i As Long, freie As Long


With Sheets("Tabelle1")

For i = 90 To .Cells(.Rows.Count, "AN").End(xlUp).Row    ' Falls die 189 fest steht, dann auch  _
gern 90 to 189
If .Cells(i, "AN") > 0 Then
Pfad = ThisWorkbook.Worksheets("Tabelle1").Range("AP" & i).Value
freie = Sheets("Tabelle1").Cells(.Rows.Count, "AN").End(xlUp).Row + 1
With Workbooks.Open(Filename:=Pfad)
.ActiveSheet.Range("A3:N10000").Copy _
Destination:=ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)).Range("AN" & freie)
.Close savechanges:=False 'oder true, wenn Änderungen gespeichert werden sollen

End With
End If
Next i
End With
End Sub
Grüße, Bernd


  

Betrifft: Crossposting
von: SF
Geschrieben am: 29.11.2018 09:58:44

Hola,

zur Info...
https://ms-office-forum.net/forum/showthread.php?t=356083
https://www.clever-excel-forum.de/thread-18137.html

Gruß,
steve1da