folgendes Problem:
Zellen W2,X2 und Y2 sollen per VBA nach folgendem Schema kopiert werden:
W4,X4,Y4
W7,X7,Y7
W9,X9,Y9
W12,X12,Y12 usw. und das ganze so das es am Ende 256 Zeilen sind,d.h. also 255x kopieren.
Folgenden Code für 1x kopieren hab ich:
Option Explicit
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("W2:Y2").Copy _
Sheets("Tabelle1").Range("W4:Y4")
End Sub
Wie muss ich nun den Code erweitern,das er mir das nach besagten Schema mit entsprechender Anzahl kopiert?Lg Frank