Sub
Insertrowbelow()
Dim
i
As
Long
Dim
xLast
As
Long
With
Worksheets(
"Budgetplanung"
)
xLast = .Cells(.Rows.Count,
"B"
).
End
(xlUp).Row
For
i = xLast
To
1
Step
-1
If
InStr(.Cells(i, 2),
"Paket"
) > 0
Then
.Rows(i + 1).Resize(6).Insert Shift:=xlDown
.Cells(i + 1, 2) =
"Arbeitskosten"
.Cells(i + 2, 2) =
"Materialkosten"
.Cells(i + 3, 2) =
"Sonstige Kosten"
.Cells(i + 4, 2) =
"Dies"
.Cells(i + 5, 2) =
"und"
.Cells(i + 6, 2) =
"Das"
End
If
Next
End
With
End
Sub