Office: Jede 5. Zeile / Spalte in neue Tabelle kopieren

vkrupp · 9. August 2004

Hallo!

Möchte gerne eine VBA Routine nutzen mit der man z.B. jede 5 Spalte/Zeile in eine neue Tabelle kopieren kann.
Wer kann helfen? Vielen Dank im voraus.

Gruß Volker

:)

User · 11. August 2004

Hallo Volker

falls Du jede 5 Zelle meinst. Benutze eine Formel

=INDIREKT("Tabelle9!A" & (ZEILE()-1)*5+1)

und runterziehen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP1 und Excel Version 2003

vkrupp · 11. August 2004

Hallo!

Danke für den Tipp. Doch mir geht es um die komplette Zeile bzw. Spalte.

Gruß Volker

jinx · 11. August 2004

Moin, Volker,

zumindest würde ich nur den genutzten Bereich kopieren per Schleife mit Zähler - folgender Code könnte Dir helfen (für die gesamten Zeilen; Zähler anpassen):

Code:

Dim lngCounter As Long
Dim intCounter As Integer
intCounter = 1
For lngCounter = 5 To 250 Step 5
Sheets("Tabelle1").Rows(lngCounter).Copy Sheets("Tabelle2").Cells(intCounter, 1)
intCounter = intCounter + 1
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vkrupp · 11. August 2004

Hallo Jinx!

Danke für den Tipp - es klappt wunderbar.

Gruß Volker

*Smilie

Office: Jede 5. Zeile / Spalte in neue Tabelle kopieren

Jede 5. Zeile / Spalte in neue Tabelle kopieren

Jede 5. Zeile / Spalte in neue Tabelle kopieren

Jede 5. Zeile / Spalte in neue Tabelle kopieren

Jede 5. Zeile / Spalte in neue Tabelle kopieren - Similar Threads - Zeile Spalte Tabelle

Zeilen verschiedene Tabellen miteinander vergleichen

Nächst grösseren Wert in Tabelle nach Spalte suchen und Zeile ausgeben

Zwei Tabellen (Spalte&Zeile) vergleichen

Ändern der Größe einer Tabelle, Spalte oder Zeile

Addieren einer Spalte oder Zeile mit Zahlen in einer Tabelle

Hinzufügen von Spalten und Zeilen zu einer Tabelle

Hinzufügen einer Zelle, Zeile oder Spalte zu einer Tabelle