Hallo,
ich habe unten stehenden Code, mit dem ich eine oder mehrere .csv-Dateien auswählen und durch "Öffnen" in mein Hauptdokument, aus dem das Makro verwendet wird, importieren kann.
Derzeit sortiert das Makro alle Dateien direkt untereinander (lastrow), ich möchte aber, dass es die Dateien nebeneinander setzt. Inwieweit müsste ich den Code ändern?
Für Hilfe wäre ich sehr dankbar (bin leider kein Profi was den Bereich angeht, daher wäre ich auch für ausführlichere Erklärungen empfänglich).
Vielen Dank bereits im Vorraus für eure Mühe.
Grüße
Wazu
Sub CSV_Import_Formatierung()
Dim doks, i, lastrow
lastrow = 1
doks = Application.GetOpenFilename("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(doks) Then
For i = 1 To UBound(doks)
Workbooks.Open doks(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
|