Function BereichVerketten(rng As Range, Optional strSpace As String) As String
'Verketten über Bereich, strSpace: optionales Trennzeichen
Dim C As Range
For Each C In rng
If C "" Then BereichVerketten = BereichVerketten & C & strSpace
Next
BereichVerketten = Left(BereichVerketten, Len(BereichVerketten) - Len(strSpace))
End Function
Function VerkettenBereich(rngBereich As Range, Optional strTennzeichen$ = "")
Dim strString As String
Dim A&, AA&
Dim meAr()
Dim tmpTennzeichen$
meAr = rngBereich.Value2
For A = 1 To Ubound(meAr)
For AA = 1 To Ubound(meAr, 2)
If meAr(A, AA) <> "" Then
VerkettenBereich = VerkettenBereich & tmpTennzeichen & meAr(A, AA)
If tmpTennzeichen <> strTennzeichen Then tmpTennzeichen = strTennzeichen
End If
Next AA
Next A
End Function
| A | B | C | D | |
| 1 | ||||
| 2 | 5 | ohne Trennzeichen | mit Trennzeichen | |
| 3 | 6 | 567 | 5.6.7 | |
| 4 | 7 |
| Formeln der Tabelle | ||||||
|
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen