erweiterte Excel-Funktion für Verketten - Verketten2 und wieder zusammenfügen

Gepostet am: Feb 10, 2011 3:23:35 PM

Gerade beim Verketten von vielen Zellen bzw. Zeilen mit dem immer selben Verkettungszeichen ist mit der normalen Verkettungsfunktion nicht unbedingt schnell. Zu diesem Zweck kann man in VBA eine Verketten2 Funktion programmieren, die dies wesentlich vereinfacht. 

Verketten2

Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String  Dim rng As Range     For Each rng In bereich        If rng <> "" Then        Verketten2 = Verketten2 & rng & Trennzeichen        End If     Next  If Len(Verketten2) > 0 Then _ Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))  End Function

Quelle: Office-Forum

Das Problem ist, dass Excel keine wirklich einfache Funktion bereitstellt, diesen verketteten Text wieder einfach zu teilen. Auch dafür gibt es eine einfach VBA-Lösung (und unzählige komplizierte Formeln):

Text splitten - split

Function SplitText(sString As String, Trennzeichen As String, Optional bTrans As Boolean = False) As Variant     Dim myArr() As String     myArr = Split(sString, Trennzeichen)     If bTrans = False Then         SplitText = myArr()     Else         SplitText = Application.WorksheetFunction.Transpose(myArr())     End IfEnd Function