Option
Explicit
Sub
TestIt()
Call
DoIt(1, 1, 2, 3, 5)
DoIt
"D"
, 3, 4, 2,
"H"
End
Sub
Private
Sub
DoIt(SSpalte
As
Variant
, SStart
As
Long
, SSchritt
As
Integer
, AnzRechts
As
Long
, ZielSpalte
As
Variant
)
Dim
x
As
Long
Dim
c
As
Range, k
As
Range
For
x = SStart
To
Columns(SSpalte).Cells(Rows.Count).
End
(xlUp).Row
Step
SSchritt
Set
c = Columns(SSpalte).Cells(x).Offset(, 1)
Set
c = Range(c, c.Offset(, AnzRechts - 1))
Set
k = Columns(ZielSpalte).Cells(x)
c.Copy k
Next
x
End
Sub