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

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige