Application.Workbooks.OpenText Filename:=strName, DataType:=xlDelimited, _
Semicolon:=True, Local:=True
Ist das kein Problem aber ich möchte es mit folgender machen und da raff ich nicht ganz wie ich das Mit dem Semicolon mache... :
Set WbkZ = ActiveWorkbook
WbkZ.Worksheets(1).Range("A2:IV65536").ClearContents
varDatei = Application.GetOpenFilename("Csv-Datei(*.csv*),*csv*", False, "Bitte Dateien auswählen", False, True)
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
For lngAnzahl = LBound(varDatei) To UBound(varDatei)
Set Wbk = Workbooks.Open(Filename:=varDatei(lngAnzahl))
lngLast = Wbk.Worksheets(1).Range("A65536").End(xlUp).Row
Wbk.Worksheets(1).Range("A2:Z" & lngLast).Copy _
Destination:=WbkZ.Worksheets(1).Range("A" & WbkZ.Worksheets(1).Range("A65536").End(xlUp).Row + 1)
Wbk.Close
Next
Das ist nur der Teil vom Code der für diese Frage mehr oder weniger relevant ist!