Hallo Fuchsi,
habe es doch noch heute geschafft, Deine Lösungen in meinen Code einzuarbeiten.
Auf drei Anführungszeichen zwischen der Variablen Stichtag in der Zeile

Bereich.FormulaR1C1 = \"=AlterStichtag(\"\"\" & Stichtag & \"\"\",RC\" & j & \")\"

wäre ich nicht gekommen. Jetzt, wo ich aber das Ergebnis der eingetragenen Formeln in den Zellen sehe, ist es mir klar.
Also: es funktioniert; werde selbst jedoch überlegen, ob ich nicht doch Deine Variante mit DateDiff nehme, so erspare ich mir meinen Funktioncode.
Nochmals vielen Dank für Deinen Beitrag
Gruß aus dem verregneten Bergischen Land
Toni