ich wollte Eigendlich wenn Zelle B27 befüllt ist, das dann automatisch Zelle B2 bis B4 gelöscht werden und nur die Spalte B nach oben verschoben wird. irgendwie funktioniert das aber nicht richtig, denn es wird der Bereich A2 bis B4 gelöscht und dann nach oben verschoben. was ist darann falsch?
If WorksheetFunction.CountA(Range("B27")) = 1 Then
Rows("2:4").Delete Shift:=xlShiftUp
End If
Grüße Fred