ich habe eine kurze Frage. Ähnliche Beitraäge habe ich auch schon im Forum gefunden, komme aber nicht auf die Lösung.
Ich würde gerne, in den leeren Zellen zwischen zwei Werten in einer Spalte, den Mittelwert letzten ZElle mit Wert und der darüber liegenden Zelle bilden. Dieses Mittelwert soll dann in alle freien Zellen eingetragen werden, bis ein neuer Wert angegeben ist.
Hier ist mein bisheriger Code:
Sub LueckenFuellen()
Dim lgRow As Long
Dim lgZeile As Long
lgZeile = Cells(Rows.Count, 1).End(xlUp).Row
Do While lgRow ""
lgRow = lgRow + 1
Cells(lgRow, 3) = Cells(lgRow - 1, 3)
Loop
End If
End If
Loop
End Sub
https://www.herber.de/bbs/user/111463.xlsm
Die zweite Schleife, die quasi den Mittelwert nur die nächsten Freien Zellen kopieren soll, gelingt mir nicht. Vielleich könnten mir hier jemand helfen.
Dankeschön, Martina