WorksheetFunction.Index
Justus
Ich würde gerne eine Index-Formel in VBA mittels der Function WorksheetFunction.Index nachbauen,
doch ich erhalte immer den Fehler "Objekt erforderlich".
Meine Index-Formel lautet:
=INDEX(IndexMatrix;VERGLEICH(A6;IndexZeile;0);VERGLEICH(B6;IndexSpalte;0))="C"
Mein VBA-Code lautet:
Dim wsf As WorksheetFunction: Set wsf = Application.WorksheetFunction
Dim IndexMatrix As Range: Set IndexMatrix = wSQuelle.Range("M7:P14")
Dim IndexZeile As Range: Set IndexZeile = wSQuelle.Range("L7:L14")
Dim IndexSpalte As Range: Set IndexSpalte = wSQuelle.Range("M6:P6")
For i = 6 To 13 Step 1
If wsf.Index(IndexMatrix, _
wsf.Match(Worksheets("Tabelle1").Range("A" & i), IndexZeile, 0), _
wsf.Match(Worksheets("Tabelle1").Range("B" & i), IndexSpalte, 0)) = "C" Then
Worksheets("Tabelle1").Range("C" & i).Interior.Color = vbGreen
End If
Next i
End Sub
Anbei noch mein Excel-Beispiel.
https://www.herber.de/bbs/user/80390.xlsm
Hat jdm. eine Idee was ich falsch mache?
Vielen Dank im Voraus...
Justus