Jede X. Zeile kopieren
24.11.2007 04:55:58
Golem
Hallo Excel-Fachleute,
ich habe folgenden Beitrag gefunden:
"jede zweite zeile kopieren will nich" von Hans Meier vom 23.11.2007 19:58:32.
ich möchte nur jede 2 Zeile aus einer Spalte in eine andere Spalte auf ein anderes Tabellenblatt kopieren.
Wie stell ich das den an? mein Versuch klappt nicht.
Bsp. Tabellenblatt 1 hat in Spalte B sehr viele Zeilen, jetzt will ich aber nur jede 2 Zeile kopieren. Zeilen 2,4,6,8,10 usw. nach Tabellenblatt 2 Spalte B in die Zeile 1,2,3,4,5 also fortlaufend.
Darauf folgende Antwort von:
Daniel
Die Methoden ist schleifenfrei und daher sehr schnell und auch für sehr grosse Datenmengen geeignet.
Sub Makro2()
Dim lngLetzteZeile As Long
Dim lngSpalte As Long
Dim wksZiel As Worksheet
Dim wksQuelle As Worksheet
Set wksZiel = Sheets(1)
Set wksQuelle = Sheets(2)
lngSpalte = 2
lngLetzteZeile = wksQuelle.Cells(65536, lngSpalte).End(xlUp).Row
With wksZiel.Cells(2, lngSpalte).Resize(lngLetzteZeile / 2, 1)
.FormulaR1C1 = "=INDEX('" & wksQuelle.Name & "'!C,ROW()*2-2)"
.Formula = .Value
End With
End Sub
Der Code funktioniert für das Kopieren von Tabellenblatt zu Tabellenblatt einwandfrei.
Ich möchte den Code für das Kopieren auf einem Tabellenblatt ( z.B. Spalte B nach Spalte D ) verwenden.
Dafür bekomme ich den Code nicht geändert.
Wer kann mir bitte helfen!
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner