Kopieren von zwei Formeln nach unten!
12.05.2004 18:40:34
zwei
ich möchte zwei Formeln markieren (in B1 und C1)und nach unten kopieren, mit relativen Bezügen.
Beim Makrorekorder erscheint ohne Probleme:
Sub kopieren()
Range("B1:C1").Select
Selection.AutoFill Destination:=Range("G1:G10"), Type:=xlFillDefault
Range("B1:C10").Select
End Sub
Wenn ich den Bereich aber markiert habe, und benannt habe [Name ist:rng], klappt es nicht.
Kann mir jemand einen Tipp geben, wo der Fehler ist?
Fehlermeldung:
"Die Autofill-Methode des Range-Objektes ist fehlerhaft!
Sub Kopieren()
Dim c As Integer, r As Integer, rng As Object
Set rng = Selection
c = rng.Columns.Count
r = rng.Rows.Count-1
Range(rng.Cells(1, 2), rng.Cells(1, c)).Select
Selection.AutoFill Destination:=Range(rng.Cells(1, c), rng.Cells(r, c)), Type:=xlFillDefault
rng.Cells(1, 1).Resize(r, c - 1).Copy
rng.Cells(1, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Exit Sub
End Sub