per Makro Texte verketten
16.10.2016 10:23:55
Jenny
bitte helft mir mal nochmal. Ihr habt einmal nachfolgendes Makro erstellt. Das ist aber so lange her dass ich mich nicht mehr an die Formel erinnere.
Ziel war es, die Zellen M1, N1 ff. u verketten, solange sie nicht leer sind.
Aber ich bin mir jetzt nicht mehr sicher, wie ich die Formel schreiben muss, also =Verketten2(...;";") wenn ich ein Semikolon als Trennzeichen haben will aber mit der Range das haut irgendwie nicht hin. Helft mir bitte.
Jenny
Option Explicit
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
Function Verketten(rng As Range, sDelim As String)
Dim c As Range, objVerketten As Object
Set objVerketten = CreateObject("scripting.dictionary")
For Each c In rng.Cells
If Len(c) Then
objVerketten(c) = c
End If
Next