Wie muss diese CSV genau aussehen damit das funktioniert?
Gruss
Option Explicit
Sub Export_CSV()
Dim strOrdner$
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\"
.Title = "Ordnerauswahl"
.ButtonName = "CSV-Ordner..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1) <> "\" Then _
strOrdner = strOrdner & "\"
Else
Exit Sub
End If
End With
With ActiveSheet
.SaveAs strOrdner & Format(Now, "yy-mm-dd hh_mm"), xlCSV, Local:=False
End With
End Sub