ich möchte einen Wert in zwei Tabellen suchen, und den passenden Text dazu ausgeben. Wie geht sowas? mit SVerweis?
Eine Datei habe ich hochgeladen:
https://www.herber.de/bbs/user/104524.xlsx
=WENNFEHLER(SVERWEIS(A5;Tabelle2!A3:B7;2;FALSCH);"")&WENNFEHLER(SVERWEIS(A5;Tabelle3!A3:B7;2;FALSCH); "")
Sub suche()
Dim rng as range
Set rng = sheets(2).columns(1).find(sheets(1).cells(5,1))
If rng is nothing then set rng = sheets(3).columns(1).find(sheets(1).cells(5,1))
Sheets(1).cells(5,2) = rng.value
End sub
Es ist noch einige Arbeit, bis dieser Code 'rund' läuft.