Habe im Forum eine Musterlösung gefunden.
Ich würde diese aber gerne auf meine Bedürfnissse anpassen.
Die Inputbox wäre eine super Lösung.
Ist es möglich, dass der Dateiname nicht vorgeschlagen wird und, dass der bestehenden Dateiname auch nicht angewendet darf. Darf nicht unter gleichen Namen gespeichert werden.
Und zum Schluss, ob es möglich ist den gleichen Pfad wie die alte Datei zu verwenden.
Private Sub CommandButton10_Click()
Dim strName As String
strName = ActiveWorkbook.Name
strName = InputBox("Bitte Dateiname angeben:", , strName)
If strName = "" Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs strName
Application.DisplayAlerts = True
End Sub
Danke für Eure hilfe
Grüsse
Silvio