|
Danke noch einmal für die Antwort.
Allerdings muss ich zugeben, dass ich aus diesem VBA-Code wirklich nicht schlau werde (ich bin auch kein VBA-Profi). Möchte dennoch noch einmal in der Runde nachfragen, ob es vielleicht eine einfachere und verständlicherer Lösung gibt.
Noch einmal die Fragestellung:
Mein Makro erstellt eine neue Datei und speichert diese Datei unter den Namen ab, welchen ich im Tab (Input Mask) in Zelle A14 habe.
In dieser steht der Name sowie der Pfad, wo die neue Datei abgespeichert werden soll. Z.B. für den Monat Oktober (....Pfad....; und am Ende 10.2021.xlsx)
Wenn das Makro ausgeführt wird und ich das Makro z.B. schon einmal bedient habe, dann wird die neue Datei überschrieben. Das möchte ich verhindern. Ich hätte gerne, dass am Ende des Pfades eine zwei bei der zweiten Bedienung und eine drei bei der dritten Bediehnung (....) hinzukommt (also dynamisch immer um +1) (....Pfad....; und am Ende 10.2021_2.xlsx)
Wie kann das ich das programmieren?
So sieht mein Makro bisher aus:
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
|