WorksheetFunction.Index

ich bekomme es heute einfach nicht fertig. Was ist an dieser Funktion falsch?

Function TabelleErm(TabGiltab As Date) As String
'=INDEX(GiltAB!$A$1:$B$7; _
VERGLEICH(B1;GiltAB!$A$1:$A$7;1); _
VERGLEICH(C1;GiltAB!$A$1:$B$1;1))
  Dim Zeile As Double
  Dim Spalte As Double
  Zeile = WorksheetFunction.Match(TabGiltab, ThisWorkbook.Worksheets("GiltAb").Column(1), 1)
  Spalte = Application.WorksheetFunction.Match("Tabelle", Worksheets(Tabelle4).Row(1), 1)
  TabelleErm = WorksheetFunction.Index(Worksheets("GiltAb").Range("GiltAbTabelle"), Zeile, Spalte)
End Function