Mit Sepps Hilfe Habe ich gedacht die Lösung gefunden zu haben.Hat die Datei abgelegt ohne den Inhalt zu speichern.Jetzt kommt immer die Fehlermeldung
060108_speichern.xls nicht gefunden !
Sub speichern_unter()
Dim strPath As String
strPath = "U:\Test\"
strPath = strPath & Format(Date, "yymmdd") & "_" & Sheets("Erfassungsbogen").Range("B16") & ".xls"
ThisWorkbook.SaveAs strPath
End Sub
Könnt Ihr mir helfen?
Vielen Dank
Bommi