Zellwert nach unten ausfüllen bis zur nächsten v
11.09.2014 14:11:53
Dogan
habe im Netz viel gesucht und auch schon ein Code gefunden, der jedoch ein Fehler wirft. Wäre euch sehr dankbar, wenn ihr ein Blick drüber werfen könntet:
Anforderung:
Zelle B1 enthält einen Wert, B2-B5 sind leer
B6 enthält einen Wert,B7-B11 sind leer
B12 enthält einen Wert usw.
Nun möchte ich, dass die übergeordneten Werte bis zur jeweils nächsten "Beschriebenen" Zelle aufgefüllt werden, wobei die Anzahl der leeren Zellen variabel ist.
Dazu habe ich folgenden Code:
Sub leere_auffüllen()
Dim lastrow As Long
lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.Range("B1:B" & lastrow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
ActiveSheet.Range("B1:B" & lastrow) = ActiveSheet.Range("B1:B" & lastrow).Value
End Sub
Fehler: Laufzeitfehler 1004 Keine Zellen gefunden.
Was übersehe ich bzw. wer kann mir kurz helfen ?
LG Justin