change function add and remove rows

[MokA]

Ok That was easer then expectet ^^

Zelle = helfer.EntireRow.Cells(1, i).Address(0, 0)

just works fine