kleine frage:
Application.Dialogs(xlDialogSaveAs).Show
kann ich zu diesem befehl irgendwie noch einstellen, das direkt ein bestimmter ordner angesteuert wird und ich nur noch den dateinamen eingeben muss?
danke
gruß
marcel
Sub tt()
ChDrive "c"
ChDir "\temp"
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Sub tt2()
ChDrive "D"
ChDir "C:\Temp"
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Sub tt()
ChDrive "c"
ChDir "c\temp"
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Sub bla()
ChDrive "c" 'anpassen
ChDir "c:\temp" 'anpassen aber die syntax beachten
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Sub SPEICHERN_UNTER()
' FESTLEGEN DES ORDNERS IN DEM GESPEICHERT WERDEN SOLL
ChDir "D:\TEST"
' SPEICHERN DER AKTIVEN DATEI PLUS DATUM PLUS UHRZEIT
'NeuName = ActiveWorkbook.Name & " " & Now
' SPEICHERN MIT EINEM VORGEGEBENEN NAMEN
'NeuName = "Neu" & Now
NeuName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & " " & Now
' DER DOPPELPUNKT WIRD DURCH UNTERSTRICH ERSETZT
NeuName = Replace(NeuName, ":", "_")
DlgAnswer = Application.GetSaveAsFilename(InitialFileName:=NeuName, _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If DlgAnswer <> "Falsch" Then
ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal
'ActiveWorkbook.Close
End If
End Sub