Hallo

Ich möchte mit VBA 25 (alle .csv-File in einem Ordner) in das Excel importieren. Und das mit einem Button.

Jeders .csv-File soll ein einer separaten Tabelle abgelegt sein.

Was ich bereits habe sieht so aus: 

Sub einlesen()

Dim a As Integer
a = 2


    Z = Sheets(a).UsedRange.Rows.Count
    
    
    Open "Mein Pfad" & a - 1 & ".csv" For Input As #1
    
        Do While Not EOF(1)
            Line Input #1, temp
            Sheets(a).Cells(Z, 1) = Replace(temp, vbTab, ",")
            Z = Z + 1
        Loop
    
        Close #1
    



    For j = 1 To Z
    
        Text = Split(Cells(j, 1), ",")
        For i = 0 To UBound(Text)
            Cells(j, i + 1) = Text(i)
            
           
        Next
        
        Next



End Sub

Allerdings stehen die Daten nur beim ersten mal Probieren  bei A1 danach sind sie bei A104 zu finden.

Dann muss ich den VBA-Code in dei jeweilige Tabelle kopieren, damit die Aufsplittung der Spalten funktioniert. 

Mein Wunsch ist es, das ganze in einer Schleife laufen zu lassen, un immer eins hoch zu zählen. denn die .csv-File heissen 1.csv, 2.csv, 3.csv, ...

Das ganz möcte ich ab der zweiten Tabelle schreiben, da ich die erste für Grafiken verwenden möchte.

Kann mir da jemand weiterhellfen?

Besten Dank schon jetzt

Gruss Philipp