leere Zellen mit Vorgängerwert füllen

Um leere Zellen mit Vorgängerwerten zu füllen, folgendermaßen vorgehen:

Spalte markieren
F5 drücken
Gehe zu -> Inhalte -> Leerzellen markieren
Bezug auf die Zelle über der ersten leeren Zelle herstellen
mit STRG-RETURN abschließen


VBA Lösung

Variante 1

Sub Vorgaenger_Wert()

    Dim Bereich As Range, Zelle As Range

    Set Bereich = Range("A2:A1000")

    For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)

        Zelle = Zelle.Offset(-1, 0)

    Next Zelle

End Sub

Variante 2

Sub Vorgaenger2_Wert()

'Alternative

    Dim Bereich As Range, Zelle As Range

    Set Bereich = Range("A2:A1000")

    For Each Zelle In Bereich

        If Len(Zelle) = 0 Then

            Zelle = Zelle.Offset(-1, 0)

        End If

    Next Zelle

End Sub

siehe auch
Power Query leere Zellen mit Vorgänger, Nachfolger Werten einer Spalte füllen