Ich moechte eine Arbeitsmappe immer in einem bestimmten verzeichnis abspeichern.
Aber wenn ich das Markro aufrufe kommt immer das verzeichnispfad von wo ich die Anwenung gestratet habe. Wo ist der Fehler:
Mein Code
--------------
Option Explicit
Sub mappespeichernals()
Dim docname
Dim strg
Dim Un As String
Dim test As String
Dim s As String
Dim foo As String
docname = Range("AnalyseBogen!D3").Value & " " & Range("AnalyseBogen!B3") & ".xls"
Const LW = "C:\"
Un = Application.UserName
strg = "C:\Dokumente und Einstellungen\" & Un & "\Eigene Dateien\Excel"
ChDrive LW
ChDir strg
If docname = " .xls" Then
docname = "default.xls"
Application.Dialogs(xlDialogSaveAs).Show (strg & "\" & docname)
ElseIf IsEmpty(docname) Then
docname = "default.xls"
Application.Dialogs(xlDialogSaveAs).Show (strg & "\" & docname)
Else
Application.Dialogs(xlDialogSaveAs).Show (strg & "\" & docname)
End If
Set docname = Nothing
Set strg = Nothing
End Sub
-------------------
Wer hat einen rat fuer mich
Gruss
horst