Gibt es eine Funktion (so eine Art Autoausfüllen) das mir einen Zahlenwert der Zelle entlang ausfüllt bis eine andere Zahl kommt?
https://www.herber.de/bbs/user/84390.xls
Besten Dank
Mfg
Jan
Sub lerrzellenauffüllen()
Dim letzte As Long
Dim z As Long
letzte = Range("c65536").End(xlUp).Row
For z = 1 To letzte
If Cells(z, 4) = "" Then Cells(z, 4) = Range(Cells(z, 4).Address).Offset(-1, 0)
Next
End Sub
Sub lerrzellenauffüllen()
Dim letzte As Long
Dim z As Long
letzte = Range("b65536").End(xlUp).Row
For z = 1 To letzte
If Cells(z, 2) = "" Then Cells(z, 2) = Range(Cells(z, 2).Address).Offset(-1, 0)
Next
End Sub
Sub lerrzellenauffüllenb()
Dim letzte As Long
Dim z As Long
letzte = Range("b65536").End(xlUp).Row
For z = 3 To letzte ' von Zeile 3 ab
If Cells(z, 4) = "" Then Cells(z, 4) = Range(Cells(z, 4).Address). _
Offset(-1, 0)
Next
End Sub