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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen