ich habe aktuell ein kleines Problem mit einem Makro, welcher mir CVS Dateien in eine aktuelle Tabelle importieren soll.
Sub CSV_Import()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), Local:=True
With ThisWorkbook.Sheets(1)
ActiveSheet.UsedRange.Copy Destination:=.Range("A" & lastrow)
lastrow = .UsedRange.Rows.Count + 1
End With
ActiveWorkbook.Close False
Next i
End If
End Sub
An sich funktioniert alles wie es soll:- Mehrere Dateien können ausgeählt werden
- Das ganze wird in eine bestehende Exceltabelle importiert
- Alle Werte stehen in eigenen Zellen
Das Problem ist, dass ich die CSV gerne am Ende meiner bereits bestehenden Tabelle einfügen möchte, derzeit das ganze aber einfach oben eingeschoben wird.
Könnte mir dabei jemand helfen ?
Grüße