Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Basiskenntnisse in VBA
Hi
mit VBA wäre das hier eine Möglichkeit.
Sub test()
Dim datei As String
Dim pfad As String
Dim wb As Workbook
pfad = ThisWorkbook.Path
datei = Dir(pfad & "\*.csv")
Do Until datei = ""
Set wb = Workbooks.Open(pfad & "\" & datei, ReadOnly:=True, local:=True)
With ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = Replace(datei, ".csv", "")
wb.Sheets(1).Cells(1, 1).CurrentRegion.Columns(2).Offset(1, 0).Copy
.Offset(1, 1).PasteSpecial xlPasteValues, Transpose:=True
End With
Application.CutCopyMode = False
wb.Close False
datei = Dir
Loop
End Sub
bei pfad legst du den Dateipfad fest, hier ist es der Ordner, in dem sich auch die Datei mit dem Makro befindet.
Gruß Daniel