Abspeichern mit aut. Versinszählung
14.05.2003 13:59:47
Peter
mit folgenden Script wird auf Knopfdruck ein Worksheet gespeichert.
Sub Schaltfläche4_BeiKlick()
ThisWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "W:\FCSD\gmall\p1all\p15\pscheuss\Homologation\HOM_REQ\homreq_00X.xls"
Application.DisplayAlerts = True
End Sub
Das hat jedoch 2 Nachteile:
1) Es wird immer eine alte Version mit der neuen überschrieben.
2) Es wird immer das gesammte Worksheet gespeichert.
Wie kann ich 1: einen Zähler bei dem Dateinamen Anhängen, so das es immer eine neue version gibt??
Z.B Save as blatt001, Blatt002, Blatt00n..
2) Kann ich auch nur eine Tabelle des ges. Worksheets so abspeichern?