Leere Zellen mit Wert darüber füllen(Bereich)
24.06.2006 10:51:07
Lars Jungclaus
ich habe eine Excel Tabelle mit Einträgen in z.B. Spalte A, in dem nur alle paar Zeilen ein Eintrag ist. Die leeren Zeilen in Spalte A sollen mit dem Wert der nächsten darüberliegenden Zeile gefüllt werden. Man soll den zu füllenden Bereich markieren und dann das Makro laufen lassen. Das sollte immer in der aktuellen Spalte im aktuelle markierten Bereich funktionieren.
Mein Makro-Versuch:
Sub CopyCellsleerobenjc()
Dim iRow As Integer
iRow = 2
Do Until Cells(iRow, 1).Value = "Stop"
If IsEmpty(Cells(iRow, 1)) Then
Cells(iRow, 1).Value = Cells(iRow - 1, 1).Value
End If
iRow = iRow + 1
Loop
End Sub
Geht zwar aber eben nicht im markierten Bereich.
Wer kann das lösen?
Vielen Dank
Gruß Lars