Formel einfügen
21.07.2004 14:09:50
Jens
ich wollte rechts neben einem markierten Bereich eine Formel einfügen. Bis zur letzten Zeile funktioniert alles. Aber die kopierei funktioniert nich dynamisch. Ich möchte nicht in A1 bis A5 die Formeln drin stehen haben, sondern in dem markierten Bereich eins daneben.
Danke für die Hilfe.
Sub Formel_anwenden()
Set myRange = ActiveWindow.RangeSelection
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*2"
Selection.AutoFill Destination:=ActiveCell.Range("A1:A5"), Type:=xlFillDefault
End Sub