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

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