Function verketten1(rngBereich As Range) As String
Dim c As Range
For Each c In rngBereich
If Not IsEmpty(c) Then verketten1 = verketten1 & "; " & c.Value
Next c
verketten1 = Mid(verketten1, 3)
End Function
| A | B | C | D | E | |
| 1 | a | a | |||
| 2 | b | a; a; b; c; d | |||
| 3 | c | d | h; x | ||
| 4 | d | o | |||
| 5 | e | e | |||
| 6 | f | f | |||
| 7 | g | a | |||
| 8 | h | h | |||
| 9 | i | x |
| verwendete Formeln | |
| Zelle | Formel |
| E1 | =verketten1(C2:C9) |
| E2 | =verketten1(A1:B3) |
| E3 | =verketten1(B8:C10) |
Function verketten1(rngBereich1 As Range, Optional rngBereich2 As Variant, Optional rngBereich3 _
As Variant) As String
Dim c As Range
For Each c In rngBereich1
If Not IsEmpty(c) Then verketten1 = verketten1 & "; " & c.Value
Next c
If Not IsMissing(rngBereich2) Then
For Each c In rngBereich2
If Not IsEmpty(c) Then verketten1 = verketten1 & "; " & c.Value
Next c
End If
If Not IsMissing(rngBereich3) Then
For Each c In rngBereich3
If Not IsEmpty(c) Then verketten1 = verketten1 & "; " & c.Value
Next c
End If
verketten1 = Mid(verketten1, 3)
End Function