AW: Nach Zelleintrag Formel in Zelle als Wert kopi
15.02.2007 20:07:31
Erich
Hallo Fritz,
das geht wohl nur mit VBA. Der Code gehört in das Modul der Tabelle, auf die er wirken soll:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Intersect(Target, Union(Range("A5:A54"), Range("D5:D54"))) _
Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each rng In Intersect(Target, Union(Range("A5:A54"), Range("D5:D54")))
Cells(rng.Row, 5) = Cells(rng.Row, 4)
Next rng
Application.EnableEvents = True
End Sub
Der Eintrag in Spalte E erfolgt auch, wenn du die Formel in Spalte D änderst.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort