Ich habe mich mal wieder an einem Makro probiert und laufe ins leere. Dazu bräuchte ich mal wieder Eure Hilfe, wofür ich sehr dankbar wäre.
Ich möchte mit dem Makro die jeweilige Datei als .xlsm Datei abspeichern. Dabei würde ich gerne in A2 den Namen der Datei eintagen um dann die Datei mit ihm abzuspeichern. Was nicht schlecht wäre, wenn ich in A1 noch den Pfad eintragen könnte. Dieser dann beim speichern übernommen würde. Meine Versuche laufen leider wieder ins leere. Hier der Code
Sub DateinameSpeichern()
Dim Dateiname As String
Dateiname = Worksheets("Tabelle1").Range("A2")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & A2 & ".xlsm")
End Sub
Eine Beispieldatei habe ich angehängt.Für Eure mühe danke ich im voraus
https://www.herber.de/bbs/user/149939.xlsm
LG Robert