VBA Makro ergänzen
01.09.2020 19:10:34
Marc
kann mir jemand diesen Code so ergänzen, dass der Bereich variabel ist.
Das heißt der Bereich kann von B4 (ist fest) bis C30-C100 variieren. (momentan B4-C48)
Wenn in H49 oder später nix mehr steht, dann soll er auch nicht mehr weitersuchen.
Gleichzeitig soll das Makro auch nicht ausgeführt werden, wenn in dem o.g. Bereich in Spalte B4-C.....alles bereits ausgefüllt ist.
Sub Leerzellen()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("B4:C48")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
End Sub
Danke Vorab.
Gruß Marc