Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

VBA Programm für Datei speichern unter fortlaufender Nummer

Donald (Anonym) / 4 Antworten / Flachansicht Nickles

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)?

bei Antwort benachrichtigen
count (Anonym) Donald (Anonym) „VBA Programm für Datei speichern unter fortlaufender Nummer“
Optionen

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

bei Antwort benachrichtigen