SpalteA:[A,B,C,D]
SpalteB:[1,2,3,4]
Ergebnis: [A1,B2;C3,C4]
Allerdings funktioniert das Programm nicht für Zeilenbereiche, sondern nur für Spalten. Was ist der Trick dabei, um es für beide Möglichkeiten anwendbar zu machen? Hier ist das Programm:
Public Function KreuzVerketten(Auspraegung As Range, Attribut As Range) As String
Dim i As Integer
Dim mydic As Object
Set mydic = CreateObject("Scripting.Dictionary")
TUP = Attribut
For i = 1 To Auspraegung.Count
If Len(Auspraegung.Item(i)) = 1 Then
mydic(TUP(i, 1)) = Attribut.Item(i) & Auspraegung.Item(i)
End If
Next i
KreuzVerketten = Join(mydic.items, ",")
End Function