Office: Dateiname aus Zelle

Hallo,

ich habe folgendes Problem, ich habe nicht wirklich Ahnung von VBA, eigentlich keine. Kopiere mir meist alles zusammen und kann auch schon kleine Änderungen vornehmen. Ich hätte gern, das wenn ich auch Strg und S drücke das Fenster Speichern unter aufgeht, was ich ja schon hinbekommen habe nur hätte ich gerne, das der Dateiname beim speichern automatisch aus dem Inhalt einer Zelle übernommen wird. Würde mich über Hilfe sehr freuen. Vielen Danke!

Sub SpeichernUnter()
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "D:\Arbeit\Tätigkeitsnachweis\"
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad
.Show
End With
If dialog False Then dialog.Execute
End Sub

:)

 

Hi,
Code:

 

Hi,

es funktioniert, danke danke.

Gruß

Tankala