ich bin mittlerweile schon sehr lang in diesem Forum unterwegs und konnte mir immer selbst helfen. Jetzt ist es leider soweit, dass ich nicht mehr weiter komme. Ich erstelle gerade eine Tabelle die via Userformeingabe gefüllt werden soll. Bei Klick auf den CommanButton soll diese Automatisch mit dem Vorgegebenen Name, dem Datum als PDF gespeichert werden. Das habe ich alles geschafft. Mein Problem liegt nun darin, dass ich wenn diese Datei mehrfach an einem Tag gespeichert wird sie diese mit einer fortlaufenden Nummerierung belegen soll.
Ich habe versucht dies wie folgt zu lösen:
End With
Application.DisplayAlerts = False
Dim datei As String, zähler As Byte
zähler = 0
datei = Dir("C:\Users\nilsr\Desktop\" & "VB-Techniker" & "_" & Format(Now, "ddmmyyyy") & ".xls")
Do Until datei = ""
zähler = zähler + 1
datei = Dir()
Loop
If zähler = 0 Then
ActiveWorkbook.SaveAs "C:\Users\nilsr\Desktop\" & "VB-Techniker" & "_" & Format(Now, "ddmmyyyy") & ".xls"
Else
ActiveWorkbook.SaveAs "C:\Users\nilsr\Desktop\" & "VB-Techniker" & "_" & Format(Now, "ddmmyyyy") & "_" & zähler & ".xls"
End If
Application.DisplayAlerts = True
Unload Me
End Sub
Das Problem ist, dass er mir immer nur eine weitere Datei erstellt und diese dann überschreibt.
Ich denke sogar dass ich weis woran das liegt, nämlich weil er bei der nächsten abfrage ja auch wieder nur die erste datei abfragt, leider weis ich nicht wie ich das lösen soll.
Habt ihr da vielleicht etwas Hilfe für mich?