Xverweis mit mehreren Kriterien mit VBA

Hallo zusammen,
ich versuche aktuell mit VBA die XVERWEIS Funktion zu nutzen. Das klappt auch alles wunderbar, solange ich nur ein Suchkriterium habe. Ich habe aber zwei Kriterien.
Mit der Xverweis Funktion in Excel bekomme ich das richtige Ergebnis, in VBA leider den Fehler "Typen unverträglich".
Die Formel in VBA funktioniert wenn ich nur 1 Suchkriterium und 1 Suchbereich habe. Das Problem liegt anscheinend an der Verknüpfung der beiden Kriterien / Bereiche mit dem "&" Zeichen.
Hat jemand eine Idee wie ich die Formel in VBA hinbekomme?
Vielen Dank!

Sub versuch()
Dim suchkriterium1, suchkriterium2, suchmatrix1 As Range, suchmatrix2 As Range, rueckgabematrix As Range, ergebnis, ersatztext, zeile
Set suchmatrix1 = Tabelle2.Columns("AY")
Set suchmatrix2 = Tabelle2.Columns("AZ")
Set rueckgabematrix = Tabelle2.Columns("BA")
zeile = 2
suchkriterium1 = Tabelle1.Range("N" & zeile).Value
suchkriterium2 = Tabelle1.Range("S" & zeile).Value
ergebnis = Application.WorksheetFunction.XLookup(suchkriterium1 & suchkriterium2, suchmatrix1 & suchkriterium2, rueckgabematrix, ersatztext)
MsgBox ergebnis
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das VBA kann zwar Excel-Funktionen ausführen, beherrscht aber keine Matrixformel-Funktionalität.
dh wärend die Excelfunktion XVergleich in einer Zelle bei suchmatrix1 & suchkriterium2 in einer Schleife über die Zekkbereiche läuft und versucht, jede Einzelzelle aus Suchmatrix1 mit der parallelen Einzelzelle aus Suchmatrix2 zu verknüpfen und dann dieses Matrix in die Formel übernimmt, versucht VBA hier stur die beiden Zellbereiche wie Einzelwerte mti & zu verknüpfen und das funktioniert nicht.
entweder musst du die Schleife dann entsprechend selber programmieren, oder du erzeugst die Excelformel als Text in englischer A1-Schreibweise für eine Formel in einer Zelle und berechnest diesen Text mit der funktion EVALUATE.
Gruß Daniel

Sub versuch() Dim suchkriterium1 As String, suchkriterium2 As String Dim suchmatrix1 As String, suchmatrix2 As String, rueckgabematrix As String Dim ergebnis As Variant Dim ersatztext As String, zeile As Long suchmatrix1 = Tabelle2.Columns("AY").Address(0, 0, , 1) suchmatrix2 = Tabelle2.Columns("AZ").Address(0, 0, , 1) rueckgabematrix = Tabelle2.Columns("BA").Address(0, 0, , 1) zeile = 2 suchkriterium1 = Tabelle1.Range("N" & zeile).Address(0, 0, , 1) suchkriterium2 = Tabelle1.Range("S" & zeile).Address(0, 0, , 1) ersatztext = "ein Fehler" 'Formel: =XVERWEIS(1;(AY:AY=Tabelle1!N2)*(AZ:AZ=Tabelle1!S2);BA:BA;"ein Fehler") ergebnis = Evaluate("XLOOKUP(1,(" & suchmatrix1 & "=" & suchkriterium1 & ")*(" & suchmatrix2 & "=" & suchkriterium2 & ")," & rueckgabematrix & ",""" & ersatztext & """)") MsgBox ergebnis End Sub

Beliebteste Forumthreads (12 Monate)

Xverweis mit mehreren Kriterien mit VBA

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Xverweis mit mehreren Kriterien mit VBA

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread