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

Forumthread: jede 6. Zeile in neues Blatt kopieren

jede 6. Zeile in neues Blatt kopieren
15.02.2019 16:31:13
Steffen
Hallo,
aus einer Tabelle mit einer unbekannten Anzahl an Zeilen soll jede 6. (beginnend bei 1) in ein neues Tabellenblatt kopiert werden. Wie kann ich das realisieren?
Ciao Steffen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: jede 6. Zeile in neues Blatt kopieren
15.02.2019 16:37:01
Hajo_Zi
mit VBA
Option Explicit
Sub Kopieren()
Dim Loletzte As Long
Dim LoI As Long
Dim LoZeile As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To Loletzte Step 6
Rows(LoI).Copy Worksheets("Tabelle2").Rows(LoZeile + 1)
LoZeile = LoZeile + 1
Next LoI
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: jede 6. Zeile in neues Blatt kopieren
15.02.2019 16:46:22
Steffen
6 Minuten zwischen Frage und Lösung. Ich liebe dieses Forum. Vielen Dank.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige