Warum immer sooo kompliziert???
Das einem Button zuordnen:
Sub Makro7()
nam$ = Cells(14, 4)
ActiveWorkbook.SaveAs Filename:=nam$ + ".xlsm"
Cells(13, 4) = Cells(13, 4) + 1 : REM Hier steht die Durchnumerierung
End Sub
Unter Optionen auf "Z1S1-Bezüge" einstellen,
Das in Zeile 14 Spalte 4 als formel eingeben (Bei anderer Zeile/Spalte natürlich im Makro anpassen)
="C:\Users\oee\Desktop\MeineDatei_"&TEXT(HEUTE();"TT.MM.JJ")&"_"&TEXT(Z13S4;"####")
(Den Pfad und Namen natürlich ändern)
Beliebigen Anfangswert der Durchnumerierung in Zeile 13 Spalte 4 als formel eingeben (Bei anderer Zeile/Spalte natürlich im Makro UND in der formel anpassen).
Button drücken - FERTIG!
|