Ganze Spalte bis zum letzten Eintrag kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim Loletzte As Long With Worksheets("Tabelle1") Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) .Cells(Loletzte, 1).Copy Destination:=Worksheets("Tabelle2").Range("A1") End With End Sub

Sub Test_2() Dim Loletzte As Long With Worksheets("Tabelle1") Loletzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) .Cells(Loletzte, 1).Copy Worksheets("Tabelle2").Cells(1, 1) End With End Sub

Hi Stephan,
vergiss mal Hajos Gelabere. Der hat augenscheinlich 'ne böse Kindheit gehabt.
Ausgehend von Deiner (richtigen) Zeile
Worksheets("Tabelle1").Range("B2:B5000").Copy Destination:=Worksheets("Tabelle2").Range("A1")
muss mit einer Long-Variablen die letzte belegte Zeile ermittelt werden, z.B.:
Dim lastRow As Long
lastRow = Worksheets("Tabelle1").Cells(Rows.Count, "B").End(xlUp).Row
Die vorliegende Fassung ist für einen Anfänger einfacher zu verstehen als Hajos Variante mit
Cells(Rows.Count, 1), die nebenbei gesagt Blödsinn ist, weil es hier nicht um Spalte A (1) geht
sondern um Spalte B (jedenfalls wenn man genau gelesen hätte, was Hajo manchmal nicht macht).
Als nächstes muss die Variable in die Zeile eingebaut werden:
Worksheets("Tabelle1").Range("B2:B" & lastRow).Copy Destination:=Worksheets("Tabelle2").Range("A1")
Ergibt also z.B.:

Sub Kopieren()
Dim lastRow As Long
lastRow = Worksheets("Tabelle1").Cells(Rows.Count, "B").End(xlUp).Row
Worksheets("Tabelle1").Range("B2:B" & lastRow).Copy Destination:=Worksheets("Tabelle2").Range(" _
A1")
End Sub

Die in Hajos Fassung implementierte Abfrage IIf(IsEmpty(Cells(Rows.Count, 1)) geht davon aus,
dass abgefangen werden muss ob alle 1048576 Zeilen der Spalte B belegt sind (dann würde es eine
Fehlermeldung geben). Das ist natürlich rein theoretisch möglich aber nicht praxisgerecht, weil kein
Exceluser mit höherem IQ als 80 jemals so einen Schwachsinn verzapfen würde ...
Gruß
Klaus

Sub Test_2() Dim Loletzte As Long With Worksheets("Tabelle1") Loletzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) .Cells.Range("B1:B" & Loletzte).Copy Worksheets("Tabelle2").Cells(1, 1) End With End Sub

Beliebteste Forumthreads (12 Monate)

Ganze Spalte bis zum letzten Eintrag kopieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ganze Spalte bis zum letzten Eintrag kopieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread