Folgende Frage:
Gibt es die Möglichkeit einen Zellbereich mit seinem Inhalt zu verschieben und das per Funktion?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value <> Target.Offset(-1, 0).Value Then _
Range(Target.Offset(1, 0), Target.Offset(2, 0)).EntireRow.Insert
Application.EnableEvents = True
End Sub
Sub ZeilenEinfügen()
Dim lz&, ez&, i&
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 3 Step -1
If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
Range(Cells(i, 1), Cells(i + 1, 1)).EntireRow.Insert
End If
Next i
End Sub