#VBA Codeschnipsel füllt #Luecken in #Excel

Tipp VBA LueckenFuellenZur Abwechslung etwas VBA.

Folgende Prozedur füllt die Lücken in einem markierten einspaltigen Bereich in Excel nach unten aus – und zwar so lange, bis ein neuer Inhalt kommt, dann wird die nächste Lücke mit dem neuen Inhalt gefüllt, und so weiter, …

ach was, genug der Worte: siehe vorher-nachher-Bild!

 

 

Sub LueckenFuellen()

Dim sRng As Range
Set sRng = Selection
Dim aZeile As Long
Dim eZeile As Long
Dim Zeile As Long
Dim Spalte As Long

aZeile = sRng.Row
eZeile = sRng.Row + sRng.Rows.Count – 1
Spalte = sRng.Column
Dim zCont As Variant

For Zeile = aZeile To eZeile
If Not IsEmpty(Cells(Zeile, Spalte)) Then
zCont = Cells(Zeile, Spalte).Value
Else
Cells(Zeile, Spalte).Value = zCont
End If
Next Zeile
End Sub

(Lässt sich übrigens noch ein wenig aufpolieren, klar. Allerdings: weniger dirty bedeutet immer auch weniger quick. Dem Kunden genügt’s jedenfalls auch so 🙂 )