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

Forumthread: kopieren in nächste freie zeile

kopieren in nächste freie zeile
24.11.2004 23:00:39
joel1
hallo,
ein kleines problem: wie lassen sich inhalte von zellen in die jeweils nächste freie zeile einer tabelle kopieren?
vielen dank für die mühe
gruß, bis zum nächsten mal
joel
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren in nächste freie zeile
24.11.2004 23:06:21
Josef
Hallo Joel!
zB. so.

Sub kopieren()
Dim lEnd As Long
lEnd = Sheets("Tabelle2").End(xlUp).Row + 1
'Erste Freie Zeile in Spalte "A" ermitteln
Sheets("Tabelle1").Range("A1").Copy Sheets("Tabelle2").Cells(lEnd, 1)
End Sub

Gruß Sepp
AW: kopieren in nächste freie zeile
Sven
lEnd = Sheets("Tabelle2").End(xlUp).Row + 1 ?
Da fehlt doch was, oder?
mfg Sven
Anzeige
möchte ein .Range() kaufen!
24.11.2004 23:24:06
Josef
Hallo Sven!
Danke! sehr aufmerksam.
so stimmt's.

Sub kopieren()
Dim lEnd As Long
lEnd = Sheets("Tabelle2").Range("A65536").End(xlUp).Row + 1
'Erste Freie Zeile in Spalte "A" ermitteln
Sheets("Tabelle1").Range("A1").Copy Sheets("Tabelle2").Cells(lEnd, 1)
End Sub

Gruß Sepp
Anzeige
AW: kopieren in nächste freie zeile
joel1
klasse,
ich danke euch!
gruß joel
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige