Selection.AutoFill
10.03.2004 10:31:38
Stefan
ich lasse in celle b2 eine formeleintragen und möchte diese dann per autofill nach unten ziehen. allerdings möchte ich das autofill nur soweit nach unten geht, wie ich werte in spalte a habe und nicht bis zeile 10 wie in dem beispiel
vielen dank für eure hilfe
Sub Makro1()
Range("B2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R1C1"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B10"), Type:=xlFillDefault
Range("B2:B10").Select
End Sub
Anzeige