Gefilterte Tabellenwerte in Dropdown

Option Explicit
Private Sub Worksheet_Activate()
Dim objClipBoard As Object
Dim strTemp As String
Dim avntInput As Variant
'Tabellenblattname und Spalte anpassen !!!!!!!!!!!!
Call Worksheets("Tabelle1").ListObjects(1).DataBodyRange.Columns(1).Copy
Set objClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Call objClipBoard.GetFromClipboard
strTemp = objClipBoard.GetText
Set objClipBoard = Nothing
strTemp = Left$(strTemp, Len(strTemp) - 2)
avntInput = Split(strTemp, vbCrLf)
'Zelle die das Dropdown enthält anpassen !!!!!!!!
With Cells(1, 1)
If Not .Validation Is Nothing Then Call .Validation.Delete
Call .Validation.Add(Type:=xlValidateList, Formula1:=Join(avntInput, ","))
End With
End Sub