Dropdown mit Titel/Kategorie

[Primo Centurio]

Hallo miteinander


Ich habe google durchsucht und auch unser Forum aber leider ohne Erfolg, evt habe ich auch die falschen Suchwörter eingegeben.
Aber nun zu meiner Frage:

Ist es möglich eine Dropdownauswahl zu erstellen mit Titel/Kategorien. Die Titel/Kategorien sollten in der Dropdownlauswahl nicht ageklickt werden können.

Also um das Bildlich darzustellen:


Holz (TITEL)
  
 - Eiche
 - Birke
 - Tanne

Metal (Titel)

 - Aluminium
 - Stahl
 - Eisen

Dies alles in einer einzigen Dropdownauswahl. Die Titel Holz und Metal können/dürfen nicht angeklickt werden.


Herzlichen Dank für euere Hilfe.

Freundliche Grüsse


Primo

[WillWissen]

Hallo,

mit den normalen Bordmitteln dürfte das nicht gehen. Eventuell können dir die VBA-Spezialisten ein Makro, falls du eines einsetzen darfst/willst, basteln.

[neopa]

Hallo,

und warum nutzt für den Titel nicht einfach die darüber liegende Zelle? Z.B. so::

	B	C
2	Holz	Metall
3	Tanne	Stahl

Datengültigkeit der Tabelle

Zelle Zulassen Daten Eingabe 1 Eingabe 2 B3 Liste Eiche;Birke;Tanne C3 Liste Aluminium;Stahl;Eisen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

[Primo Centurio]

Hallo Werner

Herzlichen Dank für deine Antwort.

Da ich meine Tabelle in der Breite nicht unendlich Lang machen will und es für die User so einfach wie möglich sein soll, suche ich eine Lösung die verschiedenen Kategorien in einer Dropdownauswahl aufzulisten.   :21:

Freundliche Grüsse

Primo

[neopa]

Hallo Primo,

dann schlage ich zweidimensional dynamisch abhängige Dropdownzellen vor. Den Datenbereich hab ich jetzt nicht mehr fix definiert sondern ausgelagert in ein separates Tabellenblatt (hier "Daten"), welches jederzeit einfach geändert und auch erweitert werden kan. Für den Nutzer läßt sich dieses Tabellenblatt auch ausblenden.

Mein Lösungsvorschlag ist nun so definiert, dass Du im Arbeitstabellenblatt (hier "Tabelle1") sowohl für den Titel als auch die Kategorie ein Dropdownzelle hast. Letztere  bietet Ihre Auswahl jedoch nur in Abhängigkeit der zuvor getroffenen Auswahl in der Titel-Dropdownzelle an.

Die Formeln sind so konstruiert, dass in den Dropdownzellen immer nur exakt die in "Daten" zugeordneten Werte angeboten werden. Die Daten können in dieser Tabelle jederzeit  sowohl horizontal als auch vertikal erweitert werden (vorgesehen in den Formeln momentan bis zu BZ99)

Die zusätzliche bedingte Formatierung dient dazu, den User visuell darauf aufmerksam zu machen:
 1. eine Auswahl zu treffen oder
 2. wenn nach einer erfolgten Auswahl nachträglich die Auswahl im Titel geändert wird dadurch aufzuzeigen, dass dann die vorhandene Kategorie nicht mehr zutreffend ist.

Tabelle1

	A	B	C	D
1
2		Titel (Auswahl):	Metall
3		Kategorie (Auswahl):	Stahl
4

Datengültigkeit der Tabelle

Zelle Zulassen Daten Eingabe 1 Eingabe 2 C2 Liste =BF_Titel C3 Liste =BF_Kategorie

Namen in Formeln Zelle Name Bezieht sich auf C2 BF_Titel =Daten!$A$1:INDEX(Daten!$1:$1;ANZAHL2(Daten!$1:$1)) C3 BF_Kategorie =INDEX(Daten!$A:$BZ;2;VERGLEICH(Tabelle1!$C$2;Daten!$1:$1;0)):INDEX(Daten!$A:$BZ;SUMME((Daten!A1:BZ99<>"")*(Daten!$A$1:$BZ$1=Tabelle1!C2));VERGLEICH(Tabelle1!$C$2;Daten!$1:$1;0)) Namen verstehen

Bedingte Formatierungen der Tabelle

Zelle Nr.: / Bedingung Format C2 1. / Formel ist =($C2=0)+(SUMME((Daten!$A$1:$BZ$1=$C$2)*(Daten!$A$2:$BZ$99=$C$3))=0) Abc C3 1. / Formel ist =($C2=0)+(SUMME((Daten!$A$1:$BZ$1=$C$2)*(Daten!$A$2:$BZ$99=$C$3))=0) Abc

Daten

	A	B	C	D
1	Holz	Metall	… erweiterbar
2	Eiche	Aluminium	… erweiterbar
3	Birke	Stahl
4	Tanne	Eisen
5	Fichte	… erweiterbar
6	… erweiterbar
7

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

[Primo Centurio]

Hallo Werner


Herzlichen Dank für deine Mühe und Zeit. Ich habe es mal ausprobiert und versucht es mit meiner Idee zu kombinieren, jedoch ist es nicht ganz das was ich suche. Ich habe ein Bild gemacht und es mit Photoshop bearbeitet um zu zeigen, was ich genau Suche.


   


Falls ich mich vorher unklar ausgedrückt habe tut es mir leid :16:

Grüsse Primo

[schauan]

Hallo Primo,

rein über DropDowns ist es schon nur so möglich, wie Werner es beschreibt. Es gibt keine Möglichkeit, in einem Dropdown direkt einzelne Zeilen nicht klickbar zu machen.
Wenn Dich eine Sortenkennzeichnung nicht stört und die Überschriften nicht nötig sind, könntest Du höchstens noch bei Holz überall ein H davor schreiben und bei Metall ein M usw.

Mit VBA gäbe es die Variante, dass beim Klick auf einen Eintrag selbiger in der Zelle geprüft wird und wenn es sich dabei um eine definierte Überschrift handelt, diese entfernt wird. Da hast Du hinterher eine leere Zelle.

[WillWissen]

Mittlerweile #7; dass es nicht geht, habe ich schon in #2 geschrieben und ein dynamisches DropDown lehnt der TE ab ("jedoch ist es nicht ganz das was ich suche."). 

Vllt. wäre ein entsprechender Code hilfreicher. 

[Primo Centurio]

@ Günter

Danke schön für deine Antwort.
Wenn ich auch mal zitieren darf "mit den normalen Bordmitteln dürfte das nicht gehen.", dürften heisst nicht zu 100% geht nicht. Also habe ich doch noch gehofft, das es mit den "normalen Bordmittel" geht 

Somit hilft mir höchstwahrescheinlich doch nur ein VBA Code.

Danke dir trotzdem für deine Hilfe

[schauan]

Hallöchen,

nachdem nun geklärt ist, dass auch ein Makro verwendet werden kann und das mit der Zellenleerung auch akzeptabel ist, hier mal der erste Ansatz, auch wenn noch nicht alle Randbedingungen beschrieben sind.
Der Code wirkt erst mal nur in einer Zelle, hier in A1. Das könntest Du auf eine andere Zelladresse ändern, wo Du z.B. jetzt schon ein DropDown hast. Für mehrere Zellen wäre das noch erweiterbar.
Ebenso könnte man die Liste der Dropdowninhalte noch um eine Spalte erweitern, wo Du die zu löschenden Bezeichnungen kennzeichnest und der Code wird so angepasst, dass das automatisch berücksichtigt wird. …

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Ereignisbehandlung ausschalten
Application.EnableEvents = False
'Wenn die Adresse A1 ist, dann
If Target.Address = "$A$1" Then
  'Wenn der Zellinhalt Holz oder Metall ist, dann Zelle leeren
  If Target.Value = "Holz" Or Target.Value = "Metall" Then Target.Value = ""
'Ende Wenn die Adresse A1 ist, dann
End If
'Ereignisbehandlung einschalten
Application.EnableEvents = False
End Sub