Verketten von Ausdrücken.
08.01.2016 14:23:55
Ausdrücken.
weis jemand warum dieser Code nicht funktioniert?
Man kann damit Spalteninhalte verketten über eine separate Vorgabe.
Function Kette2(Vorgabe As Range, Ketten As Range)
Dim Wert
Dim arr
Dim SpalteQ As Byte
arr = Vorgabe.Value
For Each Wert In arr
SpalteQ = Columns(Wert).Column
If IsNumeric(SpalteQ) = False Then
Kette2 = Kette2 & Ketten.Cells(SpalteQ)
Else
Kette2 = Kette2 & Wert
End If
Next
End Function
Es sollte aber so sein, dass sobald in der Vorgabe ein Ausdruck auftaucht, der nicht einer Spaltenbezeichnung entspricht, dass der Ausdruck angekettet wird.Kann mir jemand dazu helfen?