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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen