Math Reinders, Dit zou de procedure voor het vervangen kunnen zijn.....
Sub NieuweWaardeOpVandaag()
Dim WaardeVandaag As Range
Set WaardeVandaag = Columns(1).Find(Date, [A1])
If WaardeVandaag Is Nothing Then MsgBox "datum niet gevonden.", vbOKOnly, "Geen datum": Exit Sub
If MsgBox("Wil je de oude waarde van vandaag (" & Cells(WaardeVandaag.Row, 5).Value & ") aanpassen naar " & [N1] & "?", _
vbYesNo + vbDefaultButton2, "Aanpassen?") = vbYes Then Cells(WaardeVandaag.Row, 5).Value = [N1]
End Sub
Maar wat je nou bedoelt met het herberekenen is mij een raadsel. WAT moet er dan worden herberekend en HOE bereken je dat nu dan?