Option Explicit
Sub test()
Dim arrKopf As Variant, i As Long, loSpalte As Long, raFund As Range
arrKopf = Array("Index", "Datum", "Bewertung", "Textfeedback", "Copy")
With Worksheets("Tabelle1")
For i = 0 To UBound(arrKopf)
Set raFund = .Rows(.ListObjects(1).HeaderRowRange.Row).Find(what:=arrKopf(i), LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
loSpalte = raFund.Column
MsgBox arrKopf(i) & " -> " & loSpalte
End If
Next i
End With
End Sub