Hier nochmal der Code:
Sub Nation_2_erweitern()
' Nation_2_erweitern Makro
Dim i, k
' Zunächst wird die aktuelle Länge der Liste ausgelesen
i = Sheets(3).Cells(3, 44).Value
' und zwischengespeichert
Sheets(3).Cells(3, 45).Value = i
' Die zukünftige Listenlänge wird hochgezählt
k = i + 1
' Aktueller Name wird gelöscht
ActiveWorkbook.Names("Nation").Delete
' Neuer Bereich soll benannt werden, klappt auf diese weise aber nicht
ActiveWorkbook.Names.Add Name:="Nation", RefersToR1C1:= _
"=sheets(3).cells(4,44):sheets (3).cells(4+k,44)"
Sheets(3).Cells(3, 44).Value = k
' So sah das Makro nach Aufzeichnung aus, mit absoluter Adressierung, sollte aber ja flexibel adressiert werden.
' ActiveWorkbook.Names.Add Name:="Nation", RefersToR1C1:= _
"=Daten!R4C44:R18C44"
' Sheets("Menü").Select
End Sub
Danke im Vorraus :D
Emu