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)
Ich vermute mal den Trenner muß ich anders definieren.....
Wer von Euch kann mir bitte mit VBA-Code weiterhelfen?
Es bedankt sich und sagt servus,
Anton