Sub CSV_zu_XLSX()
----------------------------------------------------------------------
Dim wb As Workbook
Dim DstPfad As String
Dim Datei
----------------------------------------------------------------------
DstPfad = ActiveWorkbook.Path & "\" '"C:\Users\Pfadanpassen\" 'Anpassen, muss bereits existieren
With ActiveWorkbook
Dateiname = Left(.Name, Len(.Name) - 4)
End With
----------------------------------------------------------------------
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs DstPfad & Dateiname & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.ScreenUpdating = True
Set wb = Workbooks.Open(DstPfad & Dateiname & ".xlsx", local:=True)
Set wb = Nothing
----------------------------------------------------------------------
End Sub