|
Hallo zusammen,
ich habe einen VBA-Code, der aus der aktuellen Datei einen Export zieht und nur bestimmte Spalten in einer anderen Datei abspeichert (Dateipfad steht in einer Zelle) . Problem ist dabei, wenn diese Datei schon vorhanden ist, dann überspeichert er diese. Ich möchte es gerne so hinbekommen, dass er am Ende des Dateinamens z.B eine (2, 3,4,5,6...) schreibt. Also dass ich beliebig oft den gleichen Export ziehen kann, ohne den Dateipfad bzw. Namen zu ändern. Mit diesem Code klappt es einwandfrei, dass er die Datei jeweils dort abspeichert.
--------------------------------------
Dim ws As Worksheet
Dim new_wb As Workbook
Dim sheetname As String, fname As String, save_as As String
Dim lastrow As Long, lastcol As Long, i As Long
Workbooks.Add
save_as = ThisWorkbook.Sheets("Input Mask").Range("A14")
ActiveWorkbook.SaveAs (save_as)
(...................)
End If
With ActiveWorkbook
.Sheets("Tabelle1").Delete
.Save
.Close
End With
(...................)
End Sub
--------------------------------------
Wie oben beschrieben - der Dateinamen und Pfad steht in der "Input Mask" in Range A14. Das soll auch alles so bleiben, er soll halt lediglich wenn diese Datei schon im Zielordner vorhanden ist den Namen um Ende um +1 erweitern.
Danke für Eure Hilfe!!
Matto
|