Hallo zusammen,

ich habe nachfolgenden Code geschrieben und scheitere daran, eine ordentliche Schleife zu generieren. Ich habe alles 
in den Code geschrieben, was sich bei jeder Wiederholung ändert. Ich komme tatsächlich nicht weiter. Die Schleife wird
endlich oft durchlaufen, daher dachte ich an eine For Next Schleife, bekomme diese aber irgendwie nicht programmiert.

Ich hoffe sehr, dass mir jemand eine Lösung als Code generieren kann. Vielen Dank dafür!


Sub KVG_Start()

Application.ScreenUpdating = False 

'Hier beginnt die Schleife

    Worksheets("TAB1").Range("B2:K2").Select  'Zeile +1 bei jeder Wiederholung
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TAB2").Select
    Range("B3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TAB3").Select
    Range("J31,J32,J33,J35,J36,J38,J40,J42,J43,J45,J46,J48,J49,J51").Select
    Selection.Copy
    Sheets("TAB1").Select
    Range("N12").Select   'Spalte +1 nach rechts bei jeder Wiederholung
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N27").Select   'Spalte +1 nach rechts bei jeder Wiederholung
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IFERROR(IF(R[-15]C>1,1,R[-15]C),0)"
    Range("N27:N40").Select   'Spalte +1 nach rechts bei jeder Wiederholung
    Selection.FillDown
    Range("N41").Select   'Spalte +1 nach rechts bei jeder Wiederholung
    ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)/14"

'Hier endet die Schleife und soll sich wiederholen.

    Worksheets("TAB1").Range("B3:K3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TAB2").Select
    Range("B3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TAB3").Select
    Range("J31,J32,J33,J35,J36,J38,J40,J42,J43,J45,J46,J48,J49,J51").Select
    Selection.Copy
    Sheets("TAB1").Select
    Range("O12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("O27").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IFERROR(IF(R[-15]C>1,1,R[-15]C),0)"
    Range("O27:O40").Select
    Selection.FillDown
    Range("O41").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)/14"

    Worksheets("TAB1").Range("B4:K4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TAB2").Select
    Range("B3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TAB3").Select
    Range("J31,J32,J33,J35,J36,J38,J40,J42,J43,J45,J46,J48,J49,J51").Select
    Selection.Copy
    Sheets("TAB1").Select
    Range("P12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("P27").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IFERROR(IF(R[-15]C>1,1,R[-15]C),0)"
    Range("P27:P40").Select
    Selection.FillDown
    Range("P41").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)/14"
    
Application.ScreenUpdating = True
    
End Sub