Office: Datei beim Speichern fortlaufend nummerieren..

kryox · 18. Mai 2015

Hallo zusammen,

mit folgendem Code prüfe ich, ob ein Dateiname bereits vorhanden ist.
Falls ja, speichert er die Datei mit "(01)" am Ende des Dateinamens ab.
Das klappt soweit.

Wie muss ich weiter vorgehen, wenn ich möchte, dass er auch prüft, ob die (01) Datei vorhanden ist und notfalls die neue Datei unter "02" .. nächste mit "03" usw.. abspeichert?

Code:

Dim pfad
pfad = ordner & "\" & dateiname & ".xlsm"
If Dir(pfad) = "" Then
ActiveWorkbook.SaveAs Filename:=Tabelle_save, _
FileFormat:=52, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Else
Dim dateineu
dateineu = Tabelle_save & "(01)"
ActiveWorkbook.SaveAs Filename:=dateineu, _
FileFormat:=52, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank für eure Hilfe *Smilie

grüße
kryox

:)

Nepumuk · 19. Mai 2015

Hallo,

ich würde die laufende Nummer in den CustomDocumentProperties hinterlegen.

Beispiel:

Code:

Public Sub Test()
Const PROPERTY_NAME As String = "RunningNumber"
Dim objDocumentProperty As DocumentProperty
Dim blnFound As Boolean
Dim lngNumber As Long
For Each objDocumentProperty In ThisWorkbook.CustomDocumentProperties
If objDocumentProperty.Name = PROPERTY_NAME Then
blnFound = True
Exit For
End If
Next
If Not blnFound Then
Set objDocumentProperty = ThisWorkbook.CustomDocumentProperties.Add( _
Name:=PROPERTY_NAME, LinkToContent:=False, Type:=msoPropertyTypeNumber, Value:=0)
End If
lngNumber = objDocumentProperty.Value + 1
objDocumentProperty.Value = lngNumber

MsgBox lngNumber

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kryox · 19. Mai 2015

Hi Nepumuk,

Danke erstmal!

zum einen weiß ich aber leider nicht wie ich das in meinen Code integrieren könnte.. (bin leider ziemlicher Anfänge *frown.gif*)

zum anderen bräuchte ich es pro Datum fortlaufend.
Ich hätte vielleicht sagen sollen, was sich hinter "Tabelle_save" verbirgt.

Tabelle_save beinhaltet das heutige Datum.
Im Grunde möchte ich, dass wenn ich an einem Tag 3 Dateien via Makro speichere, es wie folgt aussieht

20.05.2015 - für die 1. gespeicherte Datei
20.05.2015 (01) - für die 2.
20.05.2015 (02) - für die 3. usw.....

am 21.05.2015 solls dann wieder bei "0" losgehen.

grüße
kryox

Nepumuk · 20. Mai 2015

Hallo,

gibt's noch etwas was du mir an Informationen vorenthältst? Ich hab nämlich keine Lust fortlaufen nachzubessern.

kryox · 20. Mai 2015

Soooorrry!! *rolleyes.gif*

Aber im Grunde wars das..

es soll im Grunde geprüft werden ob die Datei vorhanden ist und falls ja eine (1) bzw. falls diese dann schon vorhanden ist eine (2) .. usw. hinten dran gehängt werden.
falls es einfacher ist nur bis (5) würde reichen.. muss also nicht bis ins unendliche gehen.

Danke!!!

Nepumuk · 20. Mai 2015

Hallo,

dann so:

Code:

Public Function FileAppendix() As String
Const PROPERTY_NUMBER As String = "RunningNumber"
Const PROPERTY_DATE As String = "RunningDate"
Dim objDocumentPropertyNumber As DocumentProperty
Dim objDocumentPropertyDate As DocumentProperty
Dim blnFound As Boolean
Dim lngNumber As Long
For Each objDocumentPropertyNumber In ThisWorkbook.CustomDocumentProperties
If objDocumentPropertyNumber.Name = PROPERTY_NUMBER Then
blnFound = True
Exit For
End If
Next
If Not blnFound Then
Set objDocumentPropertyNumber = ThisWorkbook.CustomDocumentProperties.Add( _
Name:=PROPERTY_NUMBER, LinkToContent:=False, Type:=msoPropertyTypeNumber, Value:=0)
Set objDocumentPropertyDate = ThisWorkbook.CustomDocumentProperties.Add( _
Name:=PROPERTY_DATE, LinkToContent:=False, Type:=msoPropertyTypeDate, Value:=Date)
FileAppendix = CStr(Date)
ElseIf ThisWorkbook.CustomDocumentProperties.Item(PROPERTY_DATE).Value Date Then
ThisWorkbook.CustomDocumentProperties.Item(PROPERTY_DATE).Value = Date
ThisWorkbook.CustomDocumentProperties.Item(PROPERTY_NUMBER).Value = 0
FileAppendix = CStr(Date)
Else
lngNumber = ThisWorkbook.CustomDocumentProperties.Item(PROPERTY_NUMBER).Value
lngNumber = lngNumber + 1
ThisWorkbook.CustomDocumentProperties.Item(PROPERTY_NUMBER).Value = lngNumber
FileAppendix = CStr(Date) & Format(lngNumber, " (00)")
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Funktion liefert dir beim ersten Speichern nur das Datum, bei jedem weiteren zusätzlich die laufende Nummer.

Also einfach:

Dateiname & FileAppendix

Office: Datei beim Speichern fortlaufend nummerieren..

Datei beim Speichern fortlaufend nummerieren..

Datei beim Speichern fortlaufend nummerieren..

Datei beim Speichern fortlaufend nummerieren..

Datei beim Speichern fortlaufend nummerieren.. - Similar Threads - Datei Speichern fortlaufend

Datei als OLE-Objekt via FilePicker auswählen und speichern

offene Word-Datei per VBA speichern

Aus Access mehrere Excel-Tabellen in neue Datei speichern

Zellinhalt als Datei im Notepad speichern

Datei als PDF speichern ohne festen Dateipfad

Dateien erkennen und mit fortlaufender Nummer speichern

Excel Datei mit fortlaufender Nummer, Originaldatei belassen, nur speichern unter