Kopie von …xls

Computer: Software & Programmierung Office Software
1

Und nochmals Hallo!

Zu den besonders nervenden Neuerungen bei Office 2003 zählt, dass bei Excel (merkwürdiger Weise nicht bei Word) dann, wenn man eine Datei mit „Datei speichern unter“ speichert, das Programm automatisch die Worte „Kopie von“ vor den Dateinamen setzt.

Da ich meine Versionsnummern am Ende des Dateinamens stehen habe und diese regelmäßig ändere, übersehe ich öfters, dass am Anfang der Datei unnötige Wörter hinzugefügt wurden. Immer wieder kommt es dann vor, dass ich nicht auf die aktuellste Version einer Datei zugreife, weil ich übersehe, dass es von der Datei „abc07.xls“ bereits eine Version „abc08.xls“ gibt, die aber nicht unter diesem Namen einsortiert ist, sondern viel weiter unten, weil sie „Kopie von abc08.xls“ heißt.

Hat jemand eine Idee, wie man das ändern kann?
Vielen Dank für jeden Tipp!
Gero

2

Hallo Gero,

keine Ahnung wie man das abschaltet. Aber zur Lösung empfehle ich ein kurzes Makro, dem du dann auch direkt das Versionieren beibringen kannst:

Sub saveme()
 Dim thisFile As String
 Dim NewFile As String
 Dim antwort As VbMsgBoxResult
 Dim version As Integer
 thisFile = Application.ActiveWorkbook.FullName
 'hier die alten Teile des Filenamens raussuchen und Version erhöhen
 version = Val(Mid(thisFile, 10, 3)) + 1
 NewFile = Left(thisFile, 9) & Format(version, "000") & ".xls"
 antwort = MsgBox("Wollen Sie als: " & NewFile & " speichern?", vbYesNo)
 If (antwort = vbYes) Then ActiveWorkbook.SaveCopyAs (NewFile)
End Sub

mfg

Dirk.Pegasus