Fortlaufende Nummer beim Abspeichern
28.10.2014 08:15:36
Muehli
Guten Morgen zusammen,
ich habe folgenden Code:
Sub Datei_generieren()
'Datei generieren
Range("A1:N5000").Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.name = "DiscreteAlarms"
With Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
path = Userform1.TextBox5.Value
ActiveWorkbook.SaveAs Filename:=path & "Konvertiert_Meldungen"
Application.CutCopyMode = False
ActiveWindow.Close
End Sub
Hier wird einfach eine Datei mit dem Namen"Konvertiert_Meldungen" im ausgewählten Pfad (Wert von Textbox5) gespeichert.Nun ist aber das Problem, wenn die Datei schon existiert, dass nur gefragt wird ob man sie ersetzen will.
Jedoch hätte ich gerne, dass einfach eine fortlaufende Nummer hinzugefügt wird.
Bsp.:
Konvertiert_Meldungen.xlsx <------Datei existiert schon
somit heißt die neue Datei:
Konvertiert_Meldungen_1.xlsx
Kann mir hierbei jemand helfen?
Freundliche Grüße
Muehli