ich habe folgenden Code der ganz gut funzt.
Sub Leerzellen()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("A2:A180")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
End Sub
kann ich jenen so Erweitern das er nur dort ausgeführt wird wo in Spalte z.B. e2:E180 etwas eingetragen ist.
LG Stefan