Hallo Leute,
https://www.herber.de/bbs/user/159704.xlsb
die Beispieldatei dokumentiert eine sehr abgespeckte Version einer umfangreichen ständig erwei-terten Datei mit Gedurts- und weiteren persönlichen Daten.
In Spalte "A" sind die Geburtsdaten mit Tag, Monat und Jahr aufgelistet
Bei der Anlage eines weiteren Datensatzes soll in Spalte "B" (gleiche Zeile) der Geburtstag, mit der Jahreszahl wie in Zelle "A1" angezeigt, mittels einer Formel eingefügt werden. (sh. auch Zeile 12 des Programmcodes.) Bei Änderung der Jahreszahl in "A1" ändert sich die Angabe der Jahreszahl in Spalte "B". Das soll auch sein!! Allerdings ist es mir bislang nicht gelungen die Formel mithilfe des Befehls "Replace" umzuschreiben, sodass die Angabe "10" beim Einfügen in das Tabellenblatt durch das Tagesdatum des Geburtstages ersetzt wird, entsprechendes gilt für die Angabe des Tages.
ActiveCell.Offset(0, 1).FormulaLocal = "=DATUM($A$1;10;2)"
Seit mindestens 2 Tagen sitze ich an diesem Problem und komme einfach nicht voran.
Die Beispieldaten in den Spalten "E" und "F" sind Ergebnisse weiterer erfolgloser Versuche. Die Daten in Spalte "F" sehen schon ganz gut aus, aber die Jahreszahl ändert sich nicht bei Änderung von "A1"!!
Wenn es eine Möglichkeit gibt die nachfolgende Formel:
ActiveCell.Offset(0, 5).Value = ("x.y." & Jahr)
abzuändern sodass die Angabe "Jahr" durch "$A$1" ersetzt wird wäre das eine akzeptable Lösung.
Entscheidend für weitere hier nicht relevante Berechnungen ist nur, dass die Jahreszahl in Abhängigkeit von "$A$1" angepasst wird.
mfg
reiner