Guten Morgen, Liebe Sorgen :)
Option Explicit
Sub TestIt()
'Schrittspalte, Beginn Zeile, Schrittweite, Spaltenzahl rechts von, Zielspalte
Call DoIt(1, 1, 2, 3, 5)
'alternativ
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
'Durch die Schrittspalte
For x = SStart To Columns(SSpalte).Cells(Rows.Count).End(xlUp).Row Step SSchritt
'kopiere
Set c = Columns(SSpalte).Cells(x).Offset(, 1)
'Bereich
Set c = Range(c, c.Offset(, AnzRechts - 1))
'nach
Set k = Columns(ZielSpalte).Cells(x)
c.Copy k
Next x
End Sub
..... Alle da?
|