Leer Zelle in nächsten Zeile mit oberen Wert
26.02.2015 12:46:59
Manfred
habe das u.g. Makro aus dem Internet gefischt, es bricht aber bei For Each ab.
Fehlermeldung: Laufzeitfehler 1004, Keine Zelle gefunden.
Ich komme nicht drauf warum. Weis jemand Rat oder Tat ?
In Zelle H2 kommt der erste nach unten zu kopierende Wert, dann H30, H56 bis 12700 gehts in unbestimmter Reihenfolge weiter.
Thema: Nächste leere Zelle in nächsten Zeile mit oberen Wert füllen.
Sub Leerzellen()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("H2:H12770")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
End Sub
Manfred