Hallo,
ich bin Anfänger was die Makro Programmierung im Excel betrifft und stehe komplett an! Ich habe leider die passende Antwort für mich im Forum nicht gefunden, weshalb ich ein eigenes Thema eröffnet habe.
Mein Ziel ist es, aus mehreren Excel Dateien Informationen mittels Makro Programmierung in ein neues File zu bekommen. Es handelt sich in den unterschiedlichen Excel Files immer um die gleiche Arbeitsblattbezeichnung und die gleichen Zeilen (es sind mehrere Zeilen pro Arbeitsblatt z.B.: Zeile 13, 17,19).
Ich habe im Forum folgendes gefunden und so gut wie möglich angepasst:
Sub LoopThroughDirectory()
Dim MyFile As String
Dim erow
Dim Filepath As String
Filepath = "C:\Users\harald\Documents\Files\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
If MyFile = "C:\Users\harald\Documents\Files\Masterfile.xlsm" Then
Exit Sub
End If
Workbooks.Open (Filepath & MyFile)
Range("A10:F10").Copy
ActiveWorkbook.Close
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 4))
MyFile = Dir
Loop
End Sub
Jedoch gibt es mir immer einen Fehler 424 bei der rot markierten Zeile aus. Des Weiteren ist diese Programmierung zur Zeit darauf ausgelegt, immer nur eine Zeile von einer Datei in ein neues File zu kopieren. Ich benötige jedoch mehrere.
Es wäre toll wenn mir jemand helfen könnte!
Vielen Dank schon im Voraus
Lg
HTRM
ich bin Anfänger was die Makro Programmierung im Excel betrifft und stehe komplett an! Ich habe leider die passende Antwort für mich im Forum nicht gefunden, weshalb ich ein eigenes Thema eröffnet habe.
Mein Ziel ist es, aus mehreren Excel Dateien Informationen mittels Makro Programmierung in ein neues File zu bekommen. Es handelt sich in den unterschiedlichen Excel Files immer um die gleiche Arbeitsblattbezeichnung und die gleichen Zeilen (es sind mehrere Zeilen pro Arbeitsblatt z.B.: Zeile 13, 17,19).
Ich habe im Forum folgendes gefunden und so gut wie möglich angepasst:
Sub LoopThroughDirectory()
Dim MyFile As String
Dim erow
Dim Filepath As String
Filepath = "C:\Users\harald\Documents\Files\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
If MyFile = "C:\Users\harald\Documents\Files\Masterfile.xlsm" Then
Exit Sub
End If
Workbooks.Open (Filepath & MyFile)
Range("A10:F10").Copy
ActiveWorkbook.Close
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 4))
MyFile = Dir
Loop
End Sub
Jedoch gibt es mir immer einen Fehler 424 bei der rot markierten Zeile aus. Des Weiteren ist diese Programmierung zur Zeit darauf ausgelegt, immer nur eine Zeile von einer Datei in ein neues File zu kopieren. Ich benötige jedoch mehrere.
Es wäre toll wenn mir jemand helfen könnte!
Vielen Dank schon im Voraus
Lg
HTRM