vielleicht kann mir jemand einen Ratschlag zu folgender Syntax geben, welche leider den Inhalt einer gefüllten Zeile nicht in die darunterliegende leere Zeile in die Spalten A bis D kopiert. Kann jemand helfen? Vielen Dank im voraus, Grüsse, Chrizzi.
Sub LeereZeilenMitObrigerFüllen
Dim i As Integer
Dim iAnz As Integer
Application.ScreenUpdating = False
Sheets(1).Activate
Range("A1").Select
iAnz = 0
i = 0
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = "" Then
Range(ActiveCell.Offset(i - 1, 0), ActiveCell.Offset(i - 1, 3)).Copy
Range(ActiveCell.Offset(i, 0), ActiveCell.Offset(i, 3)).PasteSpecial
ActiveCell.Offset(1, 0).Select
iAnz = iAnz + 1
Else ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub