ich habe in einem Excel-Sheet ein CommandButton eingefügt. Wenn darauf geklickt wird, erscheint der Dialog "Speichern unter", aber es gelingt mir nicht, als Zielverzeichnis einen Netzwerkpfad anzugeben (anstatt dessen springt er immer ins Verzeichnis C:\Temp). Geht das irgendwie?
Danke vorab und viele Grüße,
Zico
Private Sub AblageButton_Click()
'Ruft das Dialogfeld "Speichern unter" auf
Dim strDateiname As String
formNummer = ActiveSheet.Cells(4, 4).Value
'On Error Resume Next
Application.DefaultFilePath = "\\Gcs\sig\Verwaltung"
strDateiname = ("Spesenabrechnung_" & formNummer & ".xls")
Application.Dialogs(xlDialogSaveAs).Show (strDateiname)
End Sub