Dateiname zu lang beim Speichern
09.08.2019 11:48:26
Roman
hoffe jemand kann mir weiterhelfen. Ich verwende einen Code zum generieren eines Dateinamens beim Klicken auf Speichern. Nun meckert VBA manchmal, wenn der Dateiname zu lang ist (256 Zeichen).
Kann man das in Verbindung mit meinem Code irgendwie lösen?
Dim FilePath As String
Dim varInput As String
Dim fileSaveName As String
Dim Filevar As String
FilePath = ThisWorkbook.Path & "\" 'Pfad ist derselbe, wie der von der Datei
projektstring = Range("C2").Value
replaceprojekt = Replace(Replace(Replace(Replace(projektstring, "/", ", "), "!", ""), " ", _
" "), " ,", ",")
myString = "Kalkulation mit LV" & Range("C1").Value & " " & replaceprojekt & ".xlsm" 'Hier _
angeben, aus was sich der Dateiname zusammen setzen soll
varInput = Replace(Replace(myString, "/", ""), "!", "")
Filevar = FilePath & varInput & ".xlsm" 'Kompletter Dateiname
fileSaveName = Application.GetSaveAsFilename(Filevar, fileFilter:="Excel Dateien (*.xlsm), _
*.xlsm")
Application.EnableEvents = False
On Error Resume Next
'Dateiname kann geändert werden, Speichern auch in einen anderen Ordner möglich
If fileSaveName False Then ThisWorkbook.SaveCopyAs fileSaveName