Clever-Excel-Forum

Hallo zusammen,

Folgendes Szenario: Ich habe eine Excel-Tapete mit zwei Reitern. Auf Reiter 1 soll man in einer bestimmten Zelle Einträge reinschreiben. Auf Reiter 2 soll dann in einer anderen Zelle eine Drop-Down Liste mit denselben Werten vorhanden sein.
Ich kenne es nur so, dass man im Reiter selbst ein Zelle mittels "Datenüberprüfung" als Liste formatiert und die Optionen der Liste mit Semikolon trennt. Man lässt das Häkchen bei "Zellendropdown" und gut ist.

Ich habe es so probiert, dass ich der Zelle aus Reiter 1 einen individuellen Namen gebe. Meinetwegen "Zelle1". Und in Reiter 2, in der Zelle die die Drop Down Liste später anzeigen soll, verweise ich mittels "Datenüberprüfung" ->"Liste" auf "=Zelle1" als Quelle.
Das funktioniert soweit. Problem nur: Ich würde gerne erreichen, dass man die Werte in Zelle1, auf Reiter 1, mit Semikolon voneinander abtrennt, und das DropDown-Feld auf Reiter 2 diese einzelnen Werte auch als einzelne Optionen anbietet.
Ich versuche es zu veranschaulichen: In Reiter 1, Zelle1, schreibe ich rein "eins;zwei;drei". Auf Reiter 2 hätte ich dann bei der DD-Liste gerne die einzeln auswählbaren Optionen "eins", "zwei" und "drei".

Was ich nicht suche, ist ein Auswahlbereich im Sinne von A1:A15 oder so, wo man dann bis zu 15 Einzeleinträge machen kann, die sich in DD-Liste auflisten und auswählen ließen.

Wisst ihr, was ich meine? Danke für Tipps!

Hi,

warum?
Was passt so nicht?
[attachment=23810]

Hallo!
Ja, danke, die Lösung hatte ich auch gebastelt. Schlecht ist es nicht. Falls das, was ich oben skizziert habe, nicht geht, muss ich es wohl so machen....
Hat ansonsten noch jemand eine Idee?

Nochmals Danke!

Hallöchen,

mit Makro? Wenn Du in A1 die Liste mit Semikolon trennst, müsstest Du im Makro noch Kommata draus machen Smile

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	1,2,3

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
B1	Liste		1;2;3

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Code:
Sub Makro1()

    With Range("B1").Validation

        .Delete

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

        xlBetween, Formula1:=Range("A1").Value

        .IgnoreBlank = False

        .InCellDropdown = True

        .InputTitle = ""

        .ErrorTitle = ""

        .InputMessage = ""

        .ErrorMessage = ""

        .ShowInput = True

        .ShowError = True

    End With

End Sub

GBPocket

chris-ka

GBPocket

schauan