Hallo,
was das Makro machen soll, ist eigentlich klar beschrieben.
Wenn ein Wert eingetragen wird (durch die Formel) wird dieser fix übernommen.
Private Sub Worksheet_Calculate()
Dim objCell As Range
For Each objCell In Range("D2:BC2") 'ein Wert pro Woche wird übernommen, dann gehts zur nächsten Zelle
If objCell.HasFormula Then _
If IsNumeric(objCell.Text) Then _
If Fix(objCell.Value) = objCell.Value Then _
objCell.Value = objCell.Value
Next
End Sub
Formel in der Zelle = =IF(D$1=$A$7;$A$2;"")
Einmal hat es funktioniert, das war's dann. :(
Gruss
Herbert |