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