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

Bestimmte Zeilen mittels Schleife kopieren

Bestimmte Zeilen mittels Schleife kopieren
17.01.2006 12:40:46
Torstenb
Vielleicht hat Jemand eine Schnelle Lösung. Ich habe eine Arbeitsmappe mit sehr vielen Werten drin.
Ich möchte mittels einer Schleife die gesamte Tabelle durchgehen und eine Zeile in eine andere Tabelle kopieren, die nächsten 3 Zeilen überspringen, dann die nächste wieder in die andere Tabelle darunter kopieren usw. So bis zum Schluss. Ich habe dann also in der neuen Tabelle untereinander nur jede 4. Zeile aus der Original-Tabelle.
Danke schon mal im voraus!
Torsten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zeilen mittels Schleife kopieren
ransi
Hallo thorsten
versuch mal:


Option Explicit
Public Sub t()
Dim letzteblatt1 As Long
Dim letzteblatt2 As Range
Dim L As Long
letzteblatt1 = Range("A65536").End(xlUp).Row
For L = 1 To letzteblatt1 Step 4
    Set letzteblatt2 = Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0)
    Rows(L).Copy letzteblatt2
Next
End Sub


ransi
Anzeige
AW: Bestimmte Zeilen mittels Schleife kopieren
17.01.2006 14:33:12
Torstenb
Vielen Dank ransi!
Funktioniert prima!
Torsten

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige