Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
468to472
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige