ProblemMakro Wert mit darüberliegendem Wert füllen
23.09.2008 10:33:00
lobby007
Sub aruNeu()
For Each cell_ In Selection.Columns(1).SpecialCells(xlCellTypeBlanks)
Range(cell_, Cells(cell_.Row, Selection.Columns.Count)).Value = _
Range(cell_(0, 1), Cells(cell_.Row, Selection.Columns.Count)(0, 1)).Value
Next
End Sub
Der Code funktioniert manchmal und manchmal läuft er auf eine Fehlermeldung.
Weiß jemand wo der Fehler ist bzw. ob man das auch besser lösen kann?
Gruß lobby