Gibt es eine Möglichkeit, die Inhalte einer individuell markierten Zellenauswahl in einer einzelnen Zelle, mit z.B. Semikolon getrennt darzustellen?
Um eine Antwort bin ich sehr danbkar.
Gruss
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
In der Tabelle kannst du diese Funktion dann so nutzen: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
Gruß,