Hallo ihr Lieben, 

ich bin VBA Anfängerin und würde gerne per Makro beginnend ab B2 die Zeile eine Zelle weiter nach rechts verschieben und das für jede 5te Spalte. 

Dazu habe ich folgenden Code erstellt: 

Sub Ausgabetabelle()

Dim x As Integer
For x = 2 To 150 Step 5
    With Worksheets("Ausgabetabelle")
    Range(Cells(x, 2), Cells(x, 150)).Copy Destination:=Worksheets("Ausgabetabelle").Cells(x, 3)


Next x

End Sub

leider bekomme ich immer den Fehler "Next ohne For".

Vielleicht kann mir jemand helfen. 

Vielen Dank im Vorraus! 

Liebe Grüße 

Bienchen