Dateiname Variable und Versionen nummerieren
04.01.2017 10:46:12
Nermin
meine Ausgangsdatei hat den Namen MokkaPro.xlsm und ich möchte das dem Dateinamen eine spezifische Nummer die in einer Zelle steht und der Projektname (steht ebenfalls in einer Zelle und somit beide Variabel), sowie die Version hinzugefügt werden, bei jeder Änderung soll die Datei neu abgespeichert werden.
Aktuell erfolgt das so:
Sub Name()
vTemp = Split(ThisWorkbook.Name, ".")
strShortName = vTemp(0)
intVersion = Val(vTemp(1)) + 1
strExtension = vTemp(UBound(vTemp))
On Error GoTo 0
strNewName = strShortName & "." & intVersion & "." & strExtension
End Sub
Bitte um Hilfe! :)
Lieben Gruß,
Nermin
Anzeige