Hi schreibe häufig Dateien in Excel (Office 97) mit Dateinamen wie 34723.xls
Wer kennt ein VBA Programm, welches diese Datei unter der nächsten Nummer speichert (also: 34724.xls, die nächste Datei 34725.xls usw)?
![](/thumbnails/75x75/user/avatar/default_avatar.jpg)
Hi schreibe häufig Dateien in Excel (Office 97) mit Dateinamen wie 34723.xls
Wer kennt ein VBA Programm, welches diese Datei unter der nächsten Nummer speichert (also: 34724.xls, die nächste Datei 34725.xls usw)?
Schreib Dir doch einfach ein Makro dafür:
Also ungefähr so:
Sub Save_number
z = Left(ActiveWorkbook.Name, 5) ' Also die ersten 5 Zeichen (bei Dir 34723)
z = z + 1 ' um Eins erhöhen oder wie auch immer
ActiveWorkbook.SaveAs FileName:=z & ".xls"
End Sub
Meld Dich wenn Du Probleme hast