|
Folgendes ich habe folgende Grundsituation.
Tabelle A1 - A33 ( jedes Feld mit einer Seitenzahl ausgefüllt 1-33 )
Beispiel : es sind folgende Seiten aktiviert also der Wert in den oben genannten Tabelle wird dargestellt : 2 +4 + 8 + 12+ 13 + 21 +31 zum Beispiel
Ich mochte jetzt in einem Feld alle aktiven seitenzahlen darstellen...
Bis jetzt habe ich aber nur das verketten2 gefunden dass mit im oben genannten Beispeil das generiert : ,2,,4,,,,,,8,,,,,,12,13,,,,,,,,,,,,,,,,21,,,,,,,,,,,,,,,,,,31,,
Hmm also vielleicht hat hier jemand eine Funktion die die leeren kommas heraus nimmt...
hier noch die Formel
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
Mit diesem Ansatz habe ich es auch versucht löst aber nur das problem wenn eine Seite fehlt also zum beispiel 8+10 dann wird bei der seite 9 kein komme angezeigt... durch die Wechsel funktion... aber sobald mehrere dazwischen fehlen....
=WECHSELN(WECHSELN(VERKETTEN(E3;",";E4;",";E5;",";E6;",";E7;",";E8;",";E9;",";E10;",";E11;",";E12;",";E13;",";E14;",";E15;",";E16;",";E17;",";E18;",";E19;",";E20;",";E21;",";E22;",";E23;",";E24;",";E25;",";E26;",";E27;",";E28;",";E29;",";E30;",";E31;",";E32;",";E33);", ,";",");",,";",")
|