|
Hi
da würde ich die Sache ganz ander angehen
ich habe jetzt hier zum testen nur xl2003
ich gehen aber davon aus, dass es in den neueren Versionen auch so geht
erstelle dir in der Zeile 1 deine Überschriften
in der Zeile 2, angefangen in A2 füge über Daten -> Gültigkeit -> Einstellungen -> Zulassen -> Liste ein Dropdown hinzu
bei Quelle schreibst du semikolongetrennt deine Auswahlmöglichkeiten
für die erste Auswahlmöglichkeit die Buchstaben A bis D würde es dann so aussehen
A;B;C;D
so verfährst du für deine weiteren 20? Auswahlmöglichkeiten
dann hast du deine Kriterien in der zweiten Zeile jeweils in einer Zelle stehen
dazu packst du in ein normales Modul folgende Funktion
Function Verketten2(ByRef rngBereich As Range) As String
Dim rngZelle As Range
For Each rngZelle In rngBereich
If rngZelle <> "" Then
Verketten2 = Verketten2 & rngZelle
End If
Next
End Function
danach kannst du dir mit folgender Formel
=verketten2(A2:T2)
in einer beliebigen Zelle deine Zeichenfolge anzeigen lassen
MfG Tom
|