Daten aus Zeile kopieren und merken, später einfügen

[technoente]

Vielen Dank !!!
Gibt es eine Möglichkeit den Namen der Datei incl. des Formates zu Beginn zu ändern?

in etwa so , es klappt aber nicht :

Code:

Sub Umbenennen_Datei()

DIM VarM as Variant ( da Zahlen und Buchstaben enthalten sein können )

VarM = Inputbox ( Name der Datei eingeben )
    ActiveWorkbook.SaveAs Filename:=VarM.xlsm
End Sub

Beste Grüße

[Rabe]

Hi,

DIM VarM as Variant '(da Zahlen und Buchstaben enthalten sein können) : da geht aber auch String

VarM = Inputbox ( Name der Datei eingeben )

versuche es mal so:
ActiveWorkbook.SaveAs Filename:=VarM & ".xlsm"