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"