VBA - Formula.Local
11.06.2021 10:26:49
excelliebe
ich habe folgendes Makro:
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
Fehlercode: Unzulässiger, oder nicht ausreichend definierter Verweis
Problem bei .Cells bei
Ich bin über jeden Tipp dankbar!
LG