EXCEL: VBA Makro zum vereinfachten Speichern
01.06.2017 13:09:29
Pascal
ich hab folgenden VBA-Code in Benutzung.
---------------------------------------------------------------------------------
Sub Speichern_unter()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "K:\Ordner1\Ordner2\Berichte\" 'Verzeichnis-Vorschlag
Datei = Range("H5") & ".xls" '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 (*.xls),*.xls*", FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function
--------------------------------------------------------------------------------
Dieser Code ermöglicht es mir über eine Schaltfläche die Excel-File in einem vordefinierten Pfad abzuspeichern. Zusätzlich wird der Name als Datei-Name übernommen welcher in der Zelle "H5" steht. Doch der generierte Name der Excel-Datei passt noch nicht ganz.
Wie schaffe ich es das zwischen dem Wort was aus "H5" übernommen wird, welches auch dann der Datei-Name ist, noch Sonderzeichen geschrieben werden. Ist das Wort also "BeispielTextNr1" (H5) dann soll daraus "Beispiel_Text_Nr_1" gemacht werden un dieser Name dann als Datei-Name dienen.
Die Logik wäre immer gleich "XXXXX_XXXX_X" . Also 5 Zeichen + "_" + 4 Zeichen + "_" + 1 Zeichen.
Besten Dank!
Pascal