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