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

Kopieren bis zur letzten gefüllten Zeile ?

Kopieren bis zur letzten gefüllten Zeile ?
24.06.2005 20:23:55
Ilka
Hallo,
ich habe folgendes Problem bei der VBA-Programmierung:
Ich möchte gern in einem Exceltabellenblatt per Makro einen Filter setzen Spalte i = nichtleer sowie daran anschliessend die gefilterten Werte aus Spalte A beginnend ab Zeile 2 bis zur letzten gefüllten Zeile kopieren.
Ich habe zunächst die gefilterten Zeilen 2 bis 6000 kopiert, das funktioniert bereits. Ich möchte jedoch nur bis zur letzte gefüllten Zeile kopieren. Wie macht man das per VBA ?
mein erster Versuch :
Selection.AutoFilter Field:=7, Criteria1:=""
Range("A2:A6000").Select
Selection.Copy
Gruß
Ilka

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren bis zur letzten gefüllten Zeile ?
24.06.2005 22:05:17
Herbert
hallo Ilka,
das kannst du so machen:

Sub x()
Dim lz&
lz = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A" & lz).Copy [b2]
End Sub

gruß Herbert
Anzeige

15 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige