Speichern unter fortlaufender Nummerierung
05.05.2008 02:46:00
Markus
hier mein Anliegen:
0. Folgendes Template wird geoeffnet:
http://www.siteupload.de/p742220-CopyofHOYAzip.html
1. In A3 soll automatisch eine Bestellnummer kreiert werden. Zum Bsp. "PO-050508-01".
2. Dateneingabe.
3. Mittels Makro soll nun eine Kopie des Dokuments unter dem Namen "PO-050508-01" gespeichert werden.
4. Dokument schliesst automatisch.
Beim naechsten Oeffnen des Templates wird automatisch ein Dokument mit der Nummer "PO-050508-02" kreiert. Eine fortlaufende Nummerierung also (nicht nur im Dateinamen der Kopie, sondern auch auf dem Dokument).
Ich habe folgenden ersten Code versucht, aber es erscheint eine Fehlermeldung.
http://www.siteupload.de/p742221-clipimage002jpg.html
Ausserdem ist der Aspekt der Nummer auf dem Dokument (in Feld A3) nicht beruecksichtigt.
Sub speichern()
Dim dname As String
Dim pfad As String
Dim x As Byte
Dim y
x = 1
pfad = "C:\Documents and Settings\TermMarkusS\Desktop\test"
dname = Format(Now, "YYYY" & "_" & "MMDD")
Application.DisplayAlerts = False
If Dir(pfad & "/" & dname & ".xls") = "" Then
ActiveWorkbook.SaveCopyAs Filename:=pfad & "/" & dname & ".xls"
Else
If Dir(pfad & "/" & dname & "-Kopie" & x & ".xls") = "" Then
ActiveWorkbook.SaveCopyAs Filename:=pfad & "/" & dname & "-Kopie" _
& x & ".xls"
Else
If Dir(pfad & "/" & dname & "-Kopie" & x & ".xls") "" Then
If Len(Dir(pfad & "/" & dname & "-Kopie" & x & ".xls"))
Was kann ich also tun?
Viele Gruesse
Markus
