Datum fixieren

[schauan]

Hallöchen,

hast Du den Vorschlag von Stefan ausprobiert?
Wenn Du eine (oder mehrere) Zelle(n) selektierst und das Makro ausführst, wird die Formel durch das Ergebnis ersetzt.

Das wäre mein Ansatz. Der Code kommt ins Codemodul vom Tabellenblatt, wo er wirken soll.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn Spalte >=8 (H) und Spalte <=11 (K)
'und Zeile >2 und Zellinhalt = "x" dann
'Formel in Spalte 12 (L) durch Ergebnis ersetzen
If Target.Column >= 8 And _
  Target.Column <= 11 And _
  Target.Row >= 2 And _
  Target.Value = "x" Then Cells(Target.Row, 12).Value = Cells(Target.Row, 12).Value
End Sub