Hallo Hans-Jörg,
Ja das ist möglich, aber nur per Makro. Anders geht's aus meiner Sicht nicht. Führe einfach das folgende Makro aus:
Sub DatumInFormelKopieren()
Dim startdat As String, enddat As String, startdt As Date, enddt As Date, dt As Date, frml As String, f As String, i As Long
'Hier die Formel eingeben
frml = "='C:\Users\h-jm\Desktop\FSD\mmmm\[dd.mm..xlsm]Kunde 2'!$C11"
Do
startdat = InputBox("Geben Sie ein Startdatum im Format dd.mm.yyyy ein.", "nach rechts kopieren", DateSerial(Year(Date), 1, 1))
Loop Until IsDate(startdat)
Do
enddat = InputBox("Geben Sie ein Enddatum im Format dd.mm.yyyy ein.", "nach rechts kopieren", DateSerial(Year(Date), 12, 31))
Loop Until IsDate(enddat)
startdt = CDate(startdat): enddt = CDate(enddat)
Application.DisplayAlerts = False
For dt = startdt To enddt
i = i + 1
f = Replace(frml, "mmmm", Format(dt, "mmmm"))
f = Replace(f, "dd.mm.", Format(dt, "dd.mm."))
ActiveCell.Offset(0, i - 1).FormulaLocal = f
Next dt
Application.DisplayAlerts = True
End Sub
Gruß Mr. K.
