ist es möglich das beim speichern einer Datei
auch gleich ein neuer Ordner mit angelegt, umbenannt
und dann dort die Datei hinnein gespeichert wird.
Momentan speichere ich so.
Sheets("Einzelschussliste").Select
Cells.Copy 'Alles kopieren
Workbooks.Add 'Neue Datei erstellen
Cells.Select 'alles reinkopieren
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
DatName = "Einzelschussliste-" & Date
ChDir "C:\Dokumente und Einstellungen\Andreas\Eigene Dateien\Haidbachschützen"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Andreas\Eigene Dateien\Haidbachschützen\" & DatName & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Gruß
Andreas W.