Aber diese Befehlszeile gibt es doch in der letzten Version deines Codes gar nicht?
Grundsätzlich rate ich dir bei Files zum FileSystemObject.
Setze eine Refernez auf die Scripting Runtime
![2019-02-27_151120.jpg 2019-02-27_151120.jpg](https://www.tutorials.de/data/attachments/51/51830-dd1031bdc8dddd3e398f87f656f16d7d.jpg?hash=3RAxvcjd3T)
![2019-02-27_151200.jpg 2019-02-27_151200.jpg](https://www.tutorials.de/data/attachments/51/51831-b18d349fde884fb8b8926d773e50787a.jpg?hash=sY00n96IT7)
Und dann hast du ein ganz bequemes Mittel um alle möglichen Dateisachen zu machen.
Grundsätzlich rate ich dir bei Files zum FileSystemObject.
Setze eine Refernez auf die Scripting Runtime
![2019-02-27_151120.jpg 2019-02-27_151120.jpg](https://www.tutorials.de/data/attachments/51/51830-dd1031bdc8dddd3e398f87f656f16d7d.jpg?hash=3RAxvcjd3T)
![2019-02-27_151200.jpg 2019-02-27_151200.jpg](https://www.tutorials.de/data/attachments/51/51831-b18d349fde884fb8b8926d773e50787a.jpg?hash=sY00n96IT7)
Und dann hast du ein ganz bequemes Mittel um alle möglichen Dateisachen zu machen.
Visual Basic:
Private Sub cmbkundendaten_click()
Dim fso As New FileSystemObject
Dim pfad As String
Dim i As Long
Dim objFld As Folder
pfad = "C:\Users\Andreas.wiese\Documents\Kunden"
If Not fso.FolderExists(pfad) Then
MsgBox "Ordner " & pfad & " exisiteirt nicht"
Exit Sub
End If
Set objFld = fso.GetFolder(pfad)
i = objFld.Files.count + 1
pfad = fso.BuildPath(pfad, "Kunden" & format(i, "00000") & "-" & format(Date, "DD-MM-YYYY") & ".txt")
If fso.FileExists(pfad) Then
MsgBox "Datei " & pfad & " exisitert bereits"
Exit Sub
End If
ActiveWorkbook.SaveAs FileName:=pfad & "\" & "Kunden" & format(i, "00000") & "-" & format(Date, "DD-MM-YYYY") & ".txt"
End Sub