Hallo zusammen,
hat jemand eine Lösung für mein Problem?
Ich möchte jeden dritten Wert in Spalte B jeweils in die nachfolgenden zwei Zeilen in Spalte A kopieren (und zwar solange, bis keine Werte mehr in Spalte B vorhanden sind.
Mein VBA-Versuch sieht wie nachfolgend als, jedoch wird jeder Wert von Spalte B genommen und in Spalte A geschrieben (statt jeder Dritter).
Sub copy_paste_1()
Dim lastRow As Long
Dim targetRow As Long
Dim cell As Range
targetRow = 1
lastRow = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row
For Each cell In Sheets("Sheet1").Range("B1:B" & lastRow)
Sheets("Sheet1").Range("A" & targetRow + 1).Value = cell.Value
Sheets("Sheet1").Range("A" & targetRow + 2).Value = cell.Value
targetRow = targetRow + 3
Next cell
End Sub
|