Dateiname doppelt
19.10.2007 14:39:52
Hartwig
folgende Prozedur steht in einem Modul:
Sub ÖffnenUndSchliessen()
Dim i As Integer
i = MsgBox("Weiter mit OK! !!!", vbOKCancel, "Die Anwendung wird gespeichert, neue Anwendung _
wird geöffnet!")
If i = 1 Then
NeueDatei = "H:\ENDPR\WI3RSA24\RSA24V22.xls" 'Dateiname der zu öffnenden Mappe
Workbooks.Open NeueDatei
'Falls Mappe IMMER unter dem gleichen Namen gespeichert werden soll :
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub
Der Name dieser Datei die abgespeichert wird stammt aus der Eingabe in eine Zelle.
Diese Datei darf nun nicht mehr überschrieben werden. Wenn der gleiche Dateiname nochmal entsteht,
sollte beim Speichern erkannt werden, dass die Datei schon vorhanden ist und
an den Dateinamen eine laufende Nummer (Zähler) angehängt werden.
Beispiel: Dateiname: "Abcde" nächster Dateiname: "Abcde1" nächster "Abcde2....
Dies sollte aber nur in dieser Prozedur erfolgen, da in der Anwendung schon automatische Speicherungen
nach Eingaben in bestimmten Zellen erfolgen.
Ist das möglich, kann mir da jemand helfen?
Ich hoffe ich habe mich nach dem schweren Arbeitstag noch verständlich ausgedrückt...
Vielen Dank schon mal im Voraus!
Hartwig