VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

SVERWEIS-Formel über mehrere Fundstellen

Gruppe

UDF

Bereich

Sverweis

Thema

SVERWEIS-Formel über mehrere Fundstellen

Problem

Wie kann ich in einer SVERWEIS-Formel mehrere Fundstellen als Zeichenfolge zusammenfassen?

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




StandardModule: basMain

Function sSVERWEIS(sName As String, rng As Range) As Variant
   Dim rngAct As Range
   Dim sResult As String
   For Each rngAct In rng.Columns(1).Cells
      If rngAct = sName Then
         sResult = sResult & rngAct.Offset(0, 1) & Chr(10)
      End If
   Next rngAct
   sSVERWEIS = Left(sResult, Len(sResult) - 1)
End Function

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Sverweis