Speichern unter - Formeln in Zelle löschen
26.11.2019 11:27:21
hkoepp63
ich bin auf der Suche nach einer Lösung, wo nachdem die Datei gespeichert wurde der Benutzername in der Tabelle stehen bleibt.
Hierzu habe ich zwei Lösungen schon eingebaut:
Sub Speichern_unter()
'
' Drucken Makro
' Makro am 14.02.2019 aufgezeichnet
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\temp\" 'Verzeichnis-Vorschlag
Datei = Format(Date, "yyyyddmm") & "_" & Range("E7").Value & "_HA" & ".xlsm" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern gedrückt
End Sub
Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel Dateien (*.xlsm),*.xlsm*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function
Public Function Benutzer(Dummy As Variant) As String
Benutzer = Application.UserName
End Function
Wie kann ich beim "Speichern unter" hinzufügen das die Formeln B77:D77 gelöscht werden, aber der Inhalt bleibt?
Vielen Dank im Voraus für Eure Hilfe.
Beste Grüße
Hinnerk