also bei mir klappt der Code
Code: Alles auswählen
sub Zuzahlung()
If ThisComponent.Sheets().getByIndex(2).getCellRangeByName("J8").Value < 18 Then
mycell =ThisComponent.Sheets().getByIndex(2).getCellRangeByName("A12")
mycell.string = "O"
end if
end sub
Hinweis: in Zelle "J8" steht die Formel:
Code: Alles auswählen
=WENN(D10="";"";(JAHRE(D10;HEUTE();0)))
Vielen Dank!
_____________________
Moderationshinweis
Ich habe deinen Beitrag abgetrennt und einen neuen Thread dafür angelegt. Zukünftig bitte nicht mehr an 'nen x-beliebigen Thread anhängen, schon gar nicht, wenn der nix mit dem eigenen Anliegen zu tun hat.
lorbass, Moderator