Hallo zusammen,
anbei mein Makro, durch Unterstützung Forum !
Ich möchte gern das die Datei direkt ins entsprechende Verzeichnis kopiert wird.
Also wenn man 2021 in der Inputbox schreibt, soll geprüft werden, ob das Verzeichnis 2021
in "Mietwohnungen" vorhanden ist, wenn nicht sollte dies erstellt werden.
Dim iJahr As Integer
iJahr = InputBox("ist das das richtige Jahr?", "Jahr", Year(Date))
ChDir "C:\1_Sicherung_Matthias_ww_wb\1_ww privat\Mietwohnungen"
ActiveWorkbook.SaveAs Filename:= _
"C:\1_Sicherung_Matthias_ww_wb\1_ww privat\Mietwohnungen\##_Betriebskosten_Muster_Str. 111 Jahr" & "= " & iJahr & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
mfg walter