Datei speichern unter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Datei speichern unter von: Andreas
Geschrieben am: 24.03.2005 13:59:10

Servus zusammen,

ich will meine Tabelle nach Klick auf Button mit einem neuen Namen speichern und da soll das Fenster "speichern unter" aufgehen und in diesem Fall schon das Laufwerk "V" angewählt sein, damit ich nur noch den richtigen Ordner aussuchen muss.

Bisher bin ich soweit, aber da Speichert die Tabelle in Eigenen Dateien und das will ich nicht.

Private Sub CommandButton2_Click()
    Dim FName$, M$
    M = ActiveSheet.Range("d6") 'hier steht der Name
    
    
    FName = "Messprotokoll_" & M & ".xls"
    ActiveWorkbook.SaveAs Filename:=FName
       
    ChDir "V:\"
    
End Sub



Im Voraus Danke für Lösungsvorschläge Andreas
Bild


Betrifft: AW: Datei speichern unter von: Hajo_Zi
Geschrieben am: 24.03.2005 14:01:53

Hallo Andreas,

Sub test()
    ChDir "C:\"
    Application.Dialogs(xlDialogSaveAs).Show ""            ' speichern unter
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: AW: Datei speichern unter von: UweD
Geschrieben am: 24.03.2005 14:10:30

Hallo nochmal

so ??


Private Sub CommandButton2_Click()
    Dim FName$, M$
    M = ActiveSheet.Range("d6") 'hier steht der Name
    
    
    FName = "Messprotokoll_" & M & ".xls"
    Application.Dialogs(xlDialogSaveAs).Show "V:\" & FName
End Sub


Gruß und Frohe Ostern


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datei speichern unter"