Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen einfügen - Reference-Zeile minus x

Forumthread: Zeilen einfügen - Reference-Zeile minus x

Zeilen einfügen - Reference-Zeile minus x
11.06.2003 17:22:22
Sku
Ich habe in meinem Makro leider einen Laufzeitfehler. In der Zeile
Selection.AutoFill Destination:=Rows("24:28")
würde ich gerne die Referenzzeile um 4 Felder nach oben kopieren.
Kann mir jemand sagen, wie ich das entsprechende Makro anpassen müßte?

Hier das Makro:
Application.Goto Reference:="deter1"
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Application.Goto Reference:="deter1"
Selection.AutoFill Destination:=Rows("24:28"), Type:=xlFillDefault
Rows("24:28").Select
Rows("24:27").Select
Selection.Interior.ColorIndex = xlNone
Range("A24").Select

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Zeilen einfügen - Reference-Zeile minus x
11.06.2003 19:19:42
Ramses

Hallo,

eine kleine Begrüssung und ein Name machen sich wesentlich besser und erhöhen die Bereitschaft DEINE Frage zu beantworten.
Auch wenn es ein offenes Forum ist,... ein bischen Knigge sollte auch hier gelten :-)

Abhängig davon welchen Bezug "deter1" hat ( du verwendest anschliessend "Selection.Autofill" kannst du keine Zeilen mit Autofill kopieren sondern nur einen Range.

Selection.AutoFill Destination:=Range("A28:E24"), Type:=xlFillDefault

Dabei werden die Zellen von A28:E28 nach oben kopiert bis E24.

Gruss Rainer

Anzeige
Re: Zeilen einfügen - Reference-Zeile minus x
11.06.2003 23:20:37
Sku

Hi Rainer,

deter 1 ist eine Bezugszeile in der die Summen, Mittelwerte etc. stehen.

Das Makro soll mir die Zeile über deter1 aufwärts nach oben hin kopieren. Wenn ich dann Range("A28:E24") einsetze bezieht sich das doch auf konkrete Zeilen oder?
Das Werte innerhalb des Range sollten sich jedoch jeweils auf die Bezugszeile beziehen.

Viele Grüße
Sku

Anzeige
Re: Zeilen einfügen - Reference-Zeile minus x
12.06.2003 15:06:38
Ramses

Hallo,

du musst so oder so die Zelle markieren. Mit Zeilen markieren kannst du kein Autofill machen:

Selection.AutoFill Destination:=Range("A" & Selection.Row & ":E" & Selection.Row - 4), Type:=xlFillDefault

Gruss Rainer

;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige