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
Wie bekomme ich jetzt noch den Projektnamen und die Projektnummer hier rein? Das Ergebnis ist das einfach der Name des Tools durchnummeriert wird: MokkaPro.1.xlsm, MokkaPro.2.xlsm usw. usf.Bitte um Hilfe! :)
Lieben Gruß,
Nermin