zwei Spalten vergleichen
13.03.2020 15:27:17
Tim
ich komme bei einem Makro nicht weiter welches aus einem Tabellenblatt Einträge mit einem anderen Tabellenblatt vergleichen soll und bei einem eindeutigen Treffer einen Wert aus einer weiteren Spalte zurückgeben soll.
Auf Tabellenblatt 1 sind über die Spalte A & B Einträge die zusammen in einer Zeile betrachtet einen eindeutigen Treffer ergeben, den Treffer dazu findet er im Tabellenblatt 2 und dort soll er mir den Wert aus Spalte C zurückgeben.
Aktuell arbeite ich mit Application.Match, welche mit meinen Kenntnissen nur eine Spalte durchsuchen kann.
Welche Alternativen gibt es um zwei Kriterien zu suchen?
Sub test()
Dim WsQ As Worksheet, WsZ As Worksheet
Dim i As Long, letzte As Long
Dim a As Variant
Set WsQ = Worksheets("Tabelle1")
Set WsZ = Worksheets("Tabelle2")
letzte = WsQ.Cells(WsQ.Rows.Count, 1).End(xlUp).Row
For i = 2 To letzte
a = Application.Match(WsQ.Cells(i, 1), WsZ.Columns(1), 0)
WsQ.Cells(i, 3).Value = WsZ.Cells(a, 3).Value
Next
End Sub