Hallo pitufo,
kan, maar ik denk dat iemand als RedHead een nog kortere formulering uit zijn mouw zal schudden.
Omdat remlo wilt dat een copy van het bestand in dezelfde map wordt opgenomen:
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path &
En omdat, door het gebruik van streepjes tussen dag, maand en jaar er niet echt een behoefte is aan een 0 voor de getallen kleiner dan 10, zou ik persoonlijk deze weglaten.
Dan nogmaals opletten dat er wordt opgeslagen als xls
m en dan bekom je deze werkende macro:
Sub Afsluitenenopslaan()
Dim datum As Date, jaar As String, maand As String, dag As String
datum = Sheets("Tellen kassa").Range("H24")
jaar = Year(datum)
maand = Month(datum)
dag = Day(datum)
'If Len(maand) = 1 Then maand = "0" & maand
'If Len(dag) = 1 Then dag = "0" & dag
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "/" & "kassa " & dag & "-" & maand & "-" & jaar & ".xlsm"
End Sub
remlo moet er rekening mee houden, dat indien "knop 15" meermaals (per dag !!) gebruikt wordt, de laatste copy de vorige overschrijft.
Groeten,
SoftAid