ich habe hier einen super Codeschnipsel gefudnen der mir nach jeder Zelle 6 Leerzeilen einfügt. Allerdings übernimmt er die formatierungen von der darüberliegenden Zelle und das möcht ich nicht. Es sollen keine Formatierungen übernommen werden. könnte mir jemand bei der anpassung des codes helfen bitte?
Sub insertRows()
Dim rng As Range
Dim lngRow As Long
On Error GoTo ErrExit
Application.ScreenUpdating = False
Set rng = Range("E4:E278")
For lngRow = rng.Rows.Count - 1 To rng.Row - 1 Step -1
rng.Rows(lngRow).Resize(6, rng.Columns.Count).Insert xlDown
Next
ErrExit:
Application.ScreenUpdating = True
Set rng = Nothing
End Sub
Danke schon mal!
Gruß,
Maris