Jede 12 Zeile kopieren
03.12.2007 17:25:19
Jochen
ich hab mal wieder ... schon wieder ein Problem ... ich hab im Forum zwar einen Code gefunden um jede 2 Zeile zu kopieren, verstehe ihn aber nicht wirklich um ihn umzuschreiben .... Anfänger halt ..kann mir den jemand erklären ?
Sub Jede2Zeile()
Dim lngLetzteZeile As Long
Dim lngSpalte As Long
Dim wksZiel As Worksheet
Dim wksQuelle As Worksheet
Set wksZiel = Sheets(2)
Set wksQuelle = Sheets(1)
lngSpalte = 1
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
Bis zu dem Befehl kapier ich es ja ..
(ingLetzteZeile / 2, 1)
Äh ingLetzteZeile durch 2, weil ich ja nur jede zweite Zeile will und ich somit das
Ergebnis hab, ab welcher Zeile Excel "schreiben" soll und zwar von unten nach oben ist das _
Richtig
.FormulaR1C1 = "=INDEX('" & wksQuelle.Name & "'!C,ROW()*2-2)"
So hier setzt es voll ganz aus, wksQuelle ist klar aber für was steht .Name ? und !C,row()*2-2
das *2-2 denk ich hat mit jeder zweiten Zeile zu tun .. oder doch nicht ? Grübel
Kann mir mal wieder jemand helfen ?
Jochen