VBA - Formula.Local

Sub IndexVergleich()
Application.ScreenUpdating = False
Dim letztSpalte As Integer
Dim letztZeile As Integer
'Variablen definieren
letztSpalte = Sheets("Analyse").Cells(1, Columns.Count).End(xlToLeft).Column
letztZeile = Sheets("Analyse").Cells(Rows.Count, "A").End(xlUp).Row
Dim SpalteGrund1 As Range
On Error Resume Next
Set SpalteGrund1 = Sheets("Analyse").Rows(1).Find(what:="Form/Größe gefällt nicht", LookIn:=xlValues, lookat:=xlWhole)
On Error GoTo 0
'Formel einfügen
Dim INDEXVERGLEICH As String
Dim GrundLast As Long
GrundLast = SpalteGrund1.Column + 19
INDEXVERGLEICH = "=XVERWEIS($A2&F$1;RetGründe!$A:RetGründe!$F:$F;Tabelle1!$G:$G;0)"
Set Rng = Range(.Cells(2, SpalteGrund1.Column), .Cells(letztZeile, GrundLast))
Rng.FormulaLocal = INDEXVERGLEICH
Rng = Rng.Value
Application.ScreenUpdating = True
End Sub