Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

  Dim bereich1 As Range

  Dim bereich2 As Range

  Dim x As Integer

  Dim y As Integer

  Dim ZeilenNr As Integer

  'Den Bereich auswählen

  Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

  Set bereich2 = Range("Tabelle1!B5:B30000")

  'Zeilen zählen

  ZeilenNr = bereich1.Rows.Count

  ZeilenNr = bereich2.Rows.Count

  'Jede zweite Zelle im Bereich durchlaufen

  For x = 3 To ZeilenNr Step 21

  'den Wert aus Spalte B in Spalte C eintragen

    bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

  Next

End Sub