Thema Datum  Von Nutzer Rating
Antwort
Rot Sverweis2 auf einem iMac
14.05.2020 19:49:32 Flo
NotSolved
14.05.2020 20:44:21 Gast43163
NotSolved
14.05.2020 23:54:18 Flo
NotSolved
15.05.2020 18:09:19 Gast24858
NotSolved

Ansicht des Beitrags:
Von:
Flo
Datum:
14.05.2020 19:49:32
Views:
47
Rating: Antwort:
  Ja
Thema:
Sverweis2 auf einem iMac

Hallo zusammen,

habe auf Windows immer ein Dokument mit dem Sverweis2 verwendet. Würde gerne das jetzt auch gerne auf einem Mac weiterverwenden, aber das funktioniert leider nicht. Könne mir jemand sagen, was ich hier ändern muss? Also welcher Teil nicht apple kompatibel ist

Tausend Dank!

 

   Public Function SVERWEIS2(Kriterium As String, _

    Bereich As Range, _
    SuchSpalte As Integer, _
    ErgebnisSpalte As Integer, _
    Optional Unikate As Boolean = True, _
    Optional Trenner As String = ", ") As String
 
Dim arrTmp
Dim L As Long
Dim Mydic As Object
arrTmp = Bereich
Set Mydic = CreateObject("Scripting.Dictionary")
If Unikate = True Then
    For L = 1 To UBound(arrTmp)
        If arrTmp(L, SuchSpalte) = Kriterium Then Mydic(arrTmp(L, ErgebnisSpalte)) = 0
    Next
    SVERWEIS2 = Join(Mydic.keys, Trenner)
    Else:
    For L = 1 To UBound(arrTmp)
        If arrTmp(L, SuchSpalte) = Kriterium Then Mydic(L) = arrTmp(L, ErgebnisSpalte)
    Next
    SVERWEIS2 = Join(Mydic.items, Trenner)
End If
End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Sverweis2 auf einem iMac
14.05.2020 19:49:32 Flo
NotSolved
14.05.2020 20:44:21 Gast43163
NotSolved
14.05.2020 23:54:18 Flo
NotSolved
15.05.2020 18:09:19 Gast24858
NotSolved