speicherdialog aufrufen

Forumthread: speicherdialog aufrufen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: speicherdialog aufrufen

24.03.2005 16:23:57

johfri

hallo,
ich möchte per makro den dialog "speichern unter" aufrufen. der name der datei soll die zelle a1 sein, so dass ich nur mehr enter drücken brauche um die datei zu speichern.
ist das möglich?
gruß johfri

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: speicherdialog aufrufen

24.03.2005 16:42:06

Koenig
AW: speicherdialog aufrufen

24.03.2005 16:42:12

UweD

AW: speicherdialog aufrufen

24.03.2005 16:42:06

Koenig

Hallo Johfri
etwa so


Sub Speichern()
Dim strDateiname As String
'sofern in der Zelle A1 etwas steht, dass als Dateiname
'gültig ist (kein Sonderzeichen z.B.) und keine
' Erweiterung xls. Sonst kannst Du in der Klammer das
' & ".xls" löschen
strDateiname = ActiveSheet.Range("A1").Value
Application.Dialogs(xlDialogSaveAs).Show (strDateiname & ".xls")
End Sub

Gruss Wilhelm

AW: speicherdialog aufrufen

24.03.2005 16:42:12

UweD

Hallo
so gehts
Dim Pfad$, FName$
Pfad = "C:\Temp\"
FName = Pfad & ActiveSheet.Range("A1") & ".xls"
Application.Dialogs(xlDialogSaveAs).Show FName
Gruß UweD