Dim first As Long
Dim last As Long
Dim c As Range
Dim r As Range
With Worksheets("Datenpunktliste").Range("A1:Z300")
Set c = .Find(what:="Spannungsebene")
first = Worksheets("Datenpunktliste").Cells(Rows.Count, c).End(xlUp).Row + 1
last = Worksheets("Datenpunktliste").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Datenpunktliste").Cells(last, c).Vaue = Worksheets("Datenpunktliste").Cells(5, 10).Value
Set r = Range(first, c - last, c)
End With
End Sub