Gruppe
Allgemein
Problem
Die Leerzellen in Spalte A sollen mit dem jeweils darüberstehenden Wert gefüllt werden.
StandardModule: Modul1
Sub CopyCells()
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