Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

SVERWEIS-Formel über mehrere Fundstellen

Gruppe

Sverweis

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