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

Zeilen bis zur letzten nichtleeren Zeile kopieren

Forumthread: Zeilen bis zur letzten nichtleeren Zeile kopieren

Zeilen bis zur letzten nichtleeren Zeile kopieren
02.03.2004 13:36:48
Mario
Hallo,
m.H. eines Makros möchte ich in einer Spalte D ab Zeile 38 alle Zeilen bis einschließlich der letzten nichtleeren Zelle in ein neues Tabellenblat kopieren. Weiß jemand dafür eine VBA-Lösung?
Vielen Dank.
Grüße,
Mario
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen bis zur letzten nichtleeren Zeile kopieren
02.03.2004 13:44:51
Tobias
Hi,
versuchs mal damit

Private Sub ()
'
Dim LZ As Integer
'
Sheets("XXX").Select
Range("D1").Select
LZ = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Range("D1:D"+Format(LZ,"0")).Select
Selection.Copy
Sheets("XXX2").select
Range("A1").Select
ActiveSheet.Paste
End Sub

Anzeige
AW: Zeilen bis zur letzten nichtleeren Zeile kopieren
02.03.2004 13:53:56
Galenzo
Hallo,
das machst du am besten so:
On Error Resume Next
Sheets("Tabelle1").Range(Cells(38, 4), Cells(Rows.Count, 4).End(xlUp)).Copy Sheets("Tabelle2").Range("A1")

Viel Erfolg!
AW: Zeilen bis zur letzten nichtleeren Zeile kopieren
02.03.2004 14:01:03
Mario
Hallo Galenzo,
bei dieser Lösung wird das Kopierte nicht eingefügt.
Woran kann das liegen?
Gruß
Mario
Anzeige
AW: Zeilen bis zur letzten nichtleeren Zeile kopieren
02.03.2004 14:04:59
Galenzo
Beachte: 2 Vorraussetzungen:
1. du hast auch eine "Ziel"tabelle namens "Tabelle2"
2. die letzte volle Zelle in Spalte D liegt UNTER Zeile 38
mfg
AW: Zeilen bis zur letzten nichtleeren Zeile kopieren
02.03.2004 13:59:42
Mario
Vielen Dank,
es funktioniert!!
Grüße,
Mario

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige