ich brauche einen Code der alle Zeilen aus Spalte B (kann variable länge haben) 2x kopiert in Zeile F. Dabei sollten aber die beiden gleichen Zeilen untereinander stehen.
Lg
Sub egal()
Dim Zelle As Range, Zeile As Long
Zeile = 2
For Each Zelle In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
Zelle.Copy Cells(Zeile, 6)
If Cells(Zeile, 6) = "" Then Zelle.Offset(-1, 0).Copy Cells(Zeile, 6)
Zeile = Zeile + 1
Next
End Sub
Dim Zelle As Range
For Each Zelle In Columns(2).SpecialCells(xlCellTypeConstants, 3)
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).Resize(2).Value = Zelle.Value
Next