Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren von zwei Formeln nach unten!

Kopieren von zwei Formeln nach unten!
12.05.2004 18:40:34
zwei
Hallo ans Forum!
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren von zwei Formeln nach unten!
12.05.2004 21:39:05
zwei
Hallo Peri,
Der Fehler liegt in der unterschiedlichen Addressierung
nicht:
Range(rng.Cells(1, 2), rng.Cells((1, c)).Select
Selection.AutoFill Destination:=Range(rng.Cells(1, c), rng.Cells(r, c)), Type:=xlFillDefault
sondern:
Range(rng.Cells(1, 2), rng.Cells(1, c)) _
.AutoFill Destination:=Range(rng.Cells(1, 2), rng.Cells(r, c)), Type:=xlFillDefault
Gruß
Christoph
Es läuft!!
13.05.2004 11:11:32
Peri
Lieber Christoph!
vielen Dank!!! Mein Tag ist gerettet! es läuft, yuhu!
Ich liebe dieses Forum,
Du bist Spitze,
Ihr seid Spitze!!!
Ich bin Dir absolut dankbar... :-))
Anzeige
Danke für die Rückmeldung (o.T.)
13.05.2004 12:06:41
Christoph

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige