Selection.AutoFill

Forumthread: Selection.AutoFill

Selection.AutoFill

10.03.2004 11:31:38

Stefan

hallo excel freunde ich brauche dringend eure hilfe!
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Selection.AutoFill

10.03.2004 11:38:39

K.Rola
Super vielen Dank!!!

10.03.2004 11:43:06

Stefan

AW: Selection.AutoFill

10.03.2004 11:38:39

K.Rola

Hallo,
Option Explicit


Sub Makro1()
Dim lz As Long
lz = [a65536].End(xlUp).Row
[b2] = "=RC[-1]/R1C1"
[b2].AutoFill Destination:=Range("B2:B" & lz), Type:=0
End Sub

Gruß K.Rola

Super vielen Dank!!!

10.03.2004 11:43:06

Stefan

Funktioniert einwandfrei, danke dir dafür

Forumthread: Selection.AutoFill

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread