Sub auffüllen()
Dim first As Long, last As Long, rng As Range
With Worksheets("Datenpunktliste")
Set rng = .Range("A1:Z1").Find(What:="Spannungsebene", LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
first = .Cells(Rows.Count, rng.Column).End(xlUp).Row + 1
last = .Cells(Rows.Count, rng.Column - 1).End(xlUp).Row
.Range(.Cells(first, rng.Column), .Cells(last, rng.Column)) = .Cells(5, "H")
End If
End With
End Sub