sverweis mit mehreren Ergebnissen
19.07.2006 13:42:39
Anton
ich möchte zwei Tabellen mit SVERWEIS verknüpfen.
Dabei sind pro Suchwert mehrere Ergebnisse vorhanden.
Diese sollen spaltenweise angeordet werden (ich will sie nachher als Uhrzeit formatieren).
Folgendes habe ich inzwischen: Ein Makro (Function) und die dazugehörige Formel.
Die Ergebnisse werden jedoch duch komma getrennt in die selbe Zelle geschrieben.
Option Explicit
Public
Function SVERWEIS2(Kriterium As String, Bereich As Range, SuchSpalte As Integer, ErgebnissSpalte As Integer, Optional Trenner As String = ", ") As String
'Original von UDO
Dim arrTmp
Dim L As Long
arrTmp = Bereich
For L = 1 To UBound(arrTmp)
If arrTmp(L, SuchSpalte) = Kriterium Then _
If InStr(1, SVERWEIS2, arrTmp(L, ErgebnissSpalte)) = 0 Then _
SVERWEIS2 = SVERWEIS2 & arrTmp(L, ErgebnissSpalte) & Trenner
Next
SVERWEIS2 = Left(SVERWEIS2, Len(SVERWEIS2) - Len(Trenner))
End Function
=sverweis2(A4;'[Export-tabelle-Access.xls]dbo_tblZeiterfassung'!$A:$C;1;2)
Wer von Euch kann mir bitte weiterhelfen?
Es bedankt sich und sagt servus,
Anton