Daten aus XLSX Datei importieren

Den nachfolgenden VBA Programmcode können Sie für Ihre Auswertung nutzen. Bitte beachten Sie, dass dieser Code ggf. für ihre Auswertung angepasst werden muss. D.h. Dateinamen, die Bezeichnung der Tabellenblätter etc. müssen ggf. auf Ihre Umgebung angepasst werden.

Eine Beispieldatei zum Download finden Sie hier.

Sub Import()
'
' Import Makro

Dim Pfad As String
Dim Datei As String
Dim Dateipfad As String
Dim i As Integer
Dim s As Integer
Dim z As Integer
Dim Anzahl As Integer

Dim letztezeile As Integer
' Bisherige importierte Daten werden elöscht
ThisWorkbook.Sheets("Tabelle2").Cells.Clear
' Tabelle1 wird gewählt
ThisWorkbook.Sheets("Tabelle1").Activate

' Variablen werden mit den Eingaben aus Tabelle1 belegt
Pfad = Cells(1, 2).Value
Anzahl = Cells(4, 2).Value
s = Cells(6, 2).Value
z = Cells(7, 2).Value

' Schleife zum mehrmaligem Durchlaufen
For i = 1 To Anzahl
' Dateibezeichnung übernehmen
Datei = ThisWorkbook.Sheets("Tabelle1").Cells(2, 2).Value & i
' Dateipfad bestimmen
Dateipfad = Pfad & Datei & ".xlsx"
' Rohdatendatei öffnen
Workbooks.Open Filename:=Dateipfad
    ' entsprechenden Bereich auswählen und kopieren
    Range(Cells(1, 1), Cells(z, s)).Select
    Selection.Copy
    ' Auswertungsdatei wählen
    ThisWorkbook.Sheets("Tabelle2").Activate
    ' letzte Zeile bestimmen und Daten unten anfügen
    letztezeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
    Sheets("Tabelle2").Cells(letztezeile + 1, 1).Select
    ActiveSheet.Paste
' Rohdatendatei schließen
Workbooks(Datei).Close savechanges = False
    
Next i
End Sub