Wenn Zelle leer, überspringen
31.10.2022 14:19:28
Basti
folgender Code fängt bei C302 an und geht Spaltenweise die Zeile 302 durch bis nichts mehr kommt, was eigentlich korrekt wäre:
Dim Bearbeiten As Range
Set Bearbeiten = Range(Cells(302, 3), Cells(302, 3).End(xlToRight)) 'hier wird der Range definiert und bei der ersten leeren Zelle als Ende deklariert
For Each Cell In Bearbeitung
Zelle = Cell
Range(Cell).Copy
Range(Cell).PasteSpecial xlPasteValues
ABER, es kann passieren, dass zwischen den Spalten leere Zellen sind, was schlecht ist, da das Makro dann natürlich abbricht.
Gibt es einen Weg, dass das Makro leere Zellen erkennt und weiterläuft, bis alle vollen Zellen erkannt sind?
Vielen Dank im Voraus
Viele Grüße
Basti