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)?
Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge
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
Hallo count,
besten Dank. Habe Deinen Makrovorschlag probiert.
C. sagt: Kompilierungsfehler - Erwartet: Ausdruck
und ich bin erst Anfänger in VBA. Vielleicht kannst Du
Makro selbst probieren und mir es bei Funktionieren
nochmals senden.
Danke im Voraus Donald
Gin mir doch mal Deine email Adresse,
dann kann ich Dir ne Datei schicken bei der's funktioniert
Hallo count,
meine E-mail Adresse: Rev1043470@AOL.c
Danke