VBA Formal als Wert fixieren nachdem abgerechnet w
26.06.2018 13:48:40
Y
ich möchte gerne nachdem ich meine Abrechnung erledigt habe, die berechneten Formelwerte in Fixwerte übernehmen, um anschließend Änderungen nachvollziehen zu können.
Dazu wird nach Abrechnung die Zeile mit einem X gekennzeichnet in Spalte CE.
Wenn also diese Spalte ein X aufweist, soll die Formel durch den Fixwerte ersetzt werden.
Das Ersetzen habe ich schon als VBA, was auch funktioniert, nur die "wenn X" -Funktion fehlt bzw. funktioniert nicht. Kann mir hier jemand weiterhelfen?
Anbei der Code, Zeile 2 geht nicht, der Rest schon:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("CE2:CE222") = "X" Then
Range("CW2:DA222").Value = Range("CW2:DA222").Value
End If
End Sub
Danke im Voraus, Y.