Thank you for the quick response,

Again I got the runtime erroe 438.

unq = Application.Unique(Tabelle1.ListObjects("Tabelle1").ListColumns("Team").DataBodyRange)
Thats the line that does not seem to be working, according to debugger.

Best,

Mojo-G