Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Letzte Zeile kopieren und tiefer einfügen

Letzte Zeile kopieren und tiefer einfügen
17.08.2004 12:05:57
Beda
Hallo,
ich will in einem Tabellenblatt von dem letzten, veränderlichen Zeilenwert der Spalte A ausgehend, die gesamten, rechts der Zelle gelegenen, ausgefüllten Zellen kopieren und eine Zeile tiefer wieder einfügen.
Die variable Bewegung zum Ende des Datenbereichs (End(XLDown)) kriege ich ja hin, aber wie markiert man von da aus die Zellen rechts davon (nach Möglichkeit auch flexibel, da eine zusätzliche Spalte dazukommen kann)?
Danke
Beda
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile kopieren und tiefer einfügen
Ingo
Dim rng As Range, rng1 As Range
Set rng = Cells(1, 1).End(xlDown)
Set rng1 = rng.End(xlToRight)
Range(rng.Offset(0, 1), rng1).Copy
rng.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
m f G
Ingo Christiansen
Danke sehr!
Beda
Vielen Dank
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige