Ich möchte gerne einen Button "Speichern unter"
Habe diesen Code genommen und verändert, geht aber nicht.
Sub SpeichernUnter()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Datname = "Referenz" & (B12") & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
'If varRetVal = False Then Exit Sub
'ActiveWorkbook.SaveAs varRetVal
End Sub
Die Datei sollte denn neuen Namen Referenz-B12.xlsm bekommen,
wobei B12 sich auf die Zelle in der Tabelle bezieht.
Wenn ich in die Zelle B12 denn Nachname Müller eingebe, sollte der gespeicherter Dateiname dann
Referenz-Müller.xlsm heissen.