ActiveCell
03.09.2005 13:40:59
hans
Sub formelwandeln()
Sheets("MaMonats").Select
Range("d42:d43").Select
Selection.Copy
Range("e42:e43").Select
ActiveSheet.Paste
Range("e42:e43").Select
ActiveCell.FormulaLocal = "=" & ActiveCell.Value
Range("d43").Select
Selection.Copy
Range("e43").Select
ActiveSheet.Paste
Range("e43").Select
ActiveCell.FormulaLocal = "=" & ActiveCell.Value
Range("d44").Select
Selection.Copy
Range("e44").Select
ActiveSheet.Paste
Range("e44").Select
ActiveCell.FormulaLocal = "=" & ActiveCell.Value
Range("d45").Select
Selection.Copy
Range("e45").Select
ActiveSheet.Paste
Range("e45").Select
ActiveCell.FormulaLocal = "=" & ActiveCell.Value
Range("d46").Select
Selection.Copy
Range("e46").Select
ActiveSheet.Paste
Range("e46").Select
ActiveCell.FormulaLocal = "=" & ActiveCell.Value
End Sub