Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolgen zusammenfassen

Gruppe

Zeichenfolge

Problem

In Spalte B stehen Zeichenfolgen. Wie kann ich diese immer dann, wenn in Spalte A in der gleichen Zeile der Begriff "Anzahl" steht, in einer Zelle zusammenfassen?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function Sammeln(rngAll As Range) As String
   Dim rng As Range
   Dim sTxt As String
   For Each rng In rngAll.Columns(1).Cells
      If rng.Value = "Anzahl" Then
         sTxt = sTxt & rng.Offset(0, 1) & ","
      End If
   Next rng
   If Len(sTxt) > 1 Then
      Sammeln = Left(sTxt, Len(sTxt) - 1)
   End If
End Function