Speichern unter mit Dialogfeld
31.01.2006 14:50:47
Werner
habe das Problem, dass ich Datei unter Angabe "Pfad und Name" mit Ansicht des Dialog "Speichern unter" ablegen möchte.
Speichern ohne Abfrage funktioniert.
Mit Dialog bekomme ich immer nur den Pfad in dem das Dokument liegt.
Kann jemand helfen?
Sub Speichern()
Dim pfad As String
Dim name As String
pfad = "c:\test\"
name = Range("A1").Value
'Application.Dialogs(xlDialogSaveAs).Show arg1:=pfad & name 'was ist hier falsch?
ActiveWorkbook.SaveAs Filename:=pfad & name 'funktioniert, ist aber unerwünscht
End Sub
Anzeige