der bisherige Code aus dem Forum.
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
Kann man die Auswahl nach den Zwischensymbolen (bisher "/") noch erweitern, so dass man sich auf die Inhalte bestimmter Zellen bezieht? Zeile 108, von Spalte 3 bis 27.Ich hätte es so versucht, aber funktioniert nicht.
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 = ActiveWorkbook.Worksheets("Aufstellung").Range(Cells(108, 3), Cells(108, 27)) 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
Kann mir wer sagen warum es nicht funktioniert?Es wird immer #Wert! angezeigt.
Der anfängliche Code funktioniert aber.
Gruß