VBA Dateizähler
26.04.2016 21:49:37
Albert
Hallo zusammen,
ich bin im VBA Anfänger und möchte eine Excel Datei (zB. Test_3) beim Speichern mit einem zusätzlichen Zähler abspeichern (Test_3_V1). Dieser soll sich nach jedem Speichern +1 erhöhen. Hier nun mein erster Gehversuch mit VBA:
Sub dateizähler()
Dim datei As String, zähler As Byte
zähler = 0
datei = Dir("C:\Users\SkyLight\Documents\TestNeu3.XLS")
Do Until datei = ""
zähler = zähler + 1
datei = Dir()
Loop
If zähler = 0 Then
ActiveWorkbook.SaveAs "C:\Users\SkyLight\Documents\TestNeu3.XLS"
Else
ActiveWorkbook.SaveAs "C:\Users\SkyLight\Documents\TestNeu3" & zähler & ".XLS"
End If
End Sub
nun beim Ersten Speichern legt das System Test 3 an, soweit so gut, 2x Speichern 31(auch noch gut).
Nun meine Frage:
a: Beim 3x Speichern steht meine Datei immer noch auf ..31 und nicht auf 32 (incl. Fragestellung ob ichdie Datei ersetzten möchte)
b: Wie bekomme ich Leeschritte zwischen den Namen und wie das gewünschte V1 (2,3 u.s.w) an die zu speichernde Datei?
Danke für eure Hilfe.
SkyLight