|
Hallo,
du ermittelst ganz fleißig ein Ordner, verwendest ihn dann aber nicht.
Wenn du beim Speichern nur den Dateinamen angibst, dann nimmt er quasi irgend einen Ordner, welcher genau bin ich mir nicht sicher.
Kann sein der letzte der für "Windows" aktive ist, oder der letzte in dem Excel was gemacht hat.
Ist aber eigntlich auch egal...
Du läßt dir den Pfad, den du auswählst, ja schön in eine Variable schreiben, und die mußt du vor dem Datei-Namen mit angeben.
Und dann bitte nicht den "Backslash" für nach dem letzten Ordner vergessen.
Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "G:\PG-D22\_Mitarbeiter\Kettner\"
.Title = "Ordner auswählen"
If .Show Then strPath = .SelectedItems(1)
End With
strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
ActiveWorkbook.SaveAs Filename:=strPath & "Nr. " & 2 & "_" & Artikel & "_" & Date & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
|