Die Datei https://www.herber.de/bbs/user/53548.xls wurde aus Datenschutzgründen gelöscht
Sub fill_lines()
Dim line, first_line, last_line As Integer, spalte_AN As String, spalte_N As Byte
first_line = InputBox("erste Zeile?")
last_line = InputBox("letzte Zeile?")
spalte_AN = InputBox("Spalte?")
spalte_N = Asc(spalte_AN)
If spalte_N < 91 And spalte_N > 64 Then
spalte_N = spalte_N - 64
ElseIf spalte_N < 123 And spalte_N > 96 Then
spalte_N = spalte_N - 96
Else:
MsgBox ("falsche Eingabe, nur Buchstaben von a-z erlaubt")
Exit Sub
End If
For Zeile = first_line To last_line
Cells(Zeile, spalte_N).Select
If Cells(Zeile, spalte_N).Value = "" Then
Cells(Zeile, spalte_N).Value = Cells(Zeile - 1, spalte_N).Value
End If
Next
End Sub
Du wirst aufgefordert, die erste und letzte Zeile sowie eine Spalte (nur von a-z) einzugeben.
In der Spalte durchläuft er dann den Bereich der Zeilen, die du eingegeben hast und füllt alle Leerzellen mit dem darüber liegenden Wert auf.
Falls du es nur für einen bestimmten Bereich brauchst, kannst du die entsprechenden Variablen natürlich auch mit Werten ersetzen.
Ist sicher recht primitiv und die Profis werden bestimmt was zu meckern haben ;-), aber für meine Zwecke reichts und sollte auch für dich funzen.
Gruß
David