Private Sub Worksheet_Change(ByVal Target As Range)
nRowName = Cells(Rows.Count, 1).End(xlUp).Row
nRowBeschreibung = Cells(Rows.Count, 2).End(xlUp).Row
If Target.Row = 1 Then
ActiveWorkbook.Names.Add Name:="NameMaschine", RefersToR1C1:= _
"=Worksheets(Maschinendaten).Range(Cells(5, 1), Cells(nRowName, 1))"
ActiveWorkbook.Names("NameMaschine").Comment = ""
ElseIf TartgetRow = 2 Then
ActiveWorkbook.Names.Add Name:="BeschreibungMaschine", RefersToR1C1:= _
"=Worksheets(Maschinendaten).Range(Cells(5, 2), Cells(nRowBeschreibung, 2))"
ActiveWorkbook.Names("BeschreibungMaschine").Comment = ""
Else
End If
End Sub