Gruppe
Funktion
Problem
Wie kann ich den jeweils letzten Wert einer Tabellen-Zahlenreihe als Multiplikator einsetzen?
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