ich habe diesen Code von hary um per Vorgabefelder eine Logik vorzugeben welche Spalten Inhalte miteinander verknüpft werden können.
Desweiterem, kann man auch das Trennzeichen vorgeben.
Bsp.
Vorgabe
A Leer / Leer B
Dann werden die Inhalte aus dem Bereich Spalt A mit einem Leerschritt, Schrägstrich verbunden, Leerschritt, Spalte B.
Das Leer gibt es so in der Funktion nicht.
Ich es irgendwie möglich die Funktion so zu erweitern, umzustellen, dass
1) Ein Leerschritt erst dann eingefügt wird, wenn im Vorgabebereich "Leer" in der Spalte steht?
2) Es soll möglich sein, dass mehrere Trennzeichen verwendet werden können.
Dabei soll die Vorgabe über einen weiteren Bereich gemacht werden können.
Bisher kann nur "/" verwendet werden.
Ich bräuchte aber mehrere Trennzeichen.
Function Kette2(Vorgabe As Range, Ketten As Range)
Dim Wert
Dim arr
Dim a As Boolean
Dim SpalteQ As Byte
arr = Vorgabe.Value
For Each Wert In arr
If Wert = "/" Or IsEmpty(Wert) Then GoTo weiter '--wenn / oder leer dann weiter
SpalteQ = Columns(Wert).Column
If IsNumeric(SpalteQ) Then
Kette2 = Kette2 & Ketten.Cells(SpalteQ)
Else
weiter:
Kette2 = Kette2 & IIf(IsEmpty(Wert), " ", Wert) '--wenn leer dann leer sonst Eintrag
End If
Next
End Function
Hat hierzu jemand eine Lösung?
Gruß