tabelle = ActiveSheet.Name
lzeile = Cells(Rows.Count, 3).End(xlUp).Row
ActiveWorkbook.Names.Add "testname", " ' " & tabelle & " ' _ !$AD$9:$AD$" & lZeile
="'Tabelle 1'!$AD$9:$AD$15" ='Tabelle 1'!$AD$9:$AD$15ActiveWorkbook.Names.Add "testname", " =' " & tabelle & " ' _ !$AD$9:$AD$" & lZeile