Hey Vielen Dank.
Ich habe den Code noch leicht angepasst.
Key:=Range(TableName & "[Systemdate]"),
Funktioniert.
mfg,
Philipp T.