Office: Dropdown Liste

Hallo - versuche seid einiger Zeit dieses Problem zu lösen:
Inhalt Tabellenblatt1:
SpalteA SpalteB SpalteC
Zeile1 A 1 a
Zeile2 A 2 a
Zeile3 A 3 b
Zeile4 A 4 c
Zeile5 B 5 b
Zeile5 B 6 d
usw.

Ich möchte jetzt in einem weiteren Tabellenblatt in jeder Zelle in Spalte "A" auf eine "Dropdown Liste" zugreifen, bei der der Inhalt aus Tabellenblatt1 - Spalte"A1:A..." max. jeweils 1-mal vorkommt. In Spalte "B" soll dann eine weitere "Dropdown Liste" einfügt werden, in der lediglich die relevanten Verweise zum Inhalt der Nachbarzelle in Spalte A aufgelistet werden.

Hat dazu jemand eine Idee?

 

Hallo!

Wenn du VBA-frei bleiben möchtest, dann brauchst du für beide DropDowns je eine Hilfsspalte.
Für das erste DD brauchst du die Liste aus Spalte A ohne Duplikate. Dies erreichst du entweder mit dem Spezialfilter (statisch) oder per Formel (dynamisch).
Um nun für das zweite DD die entsprechenden Einträge zu ermitteln, kannst du z.B. auf diese Formel zurückgreifen.
Diesen beiden neuen Bereichen gibst du nun jeweils einen Namen, so dass du diese als Quellen für zwei Gültigkeits-DDs im anderen Blatt verwenden kannst.

 

Hi Schatzi - danke f. die Antwort. Sie trifft das Problem, das ich habe, fast.
Vielleicht habe ich mich vorhin nicht richtig ausgedrückt. Daher anbei ein Beispiel wie die beiden Tabellenblätter aussehen. Vielleicht wird es jetzt klarer.

http://www.file-upload.net/download-1734698/Beispiel.zip.html

In Tabelle1 Zelle "A1" soll ein DD ohne doppelte Werte und Leerzellen (resultierend aus dem TB "Dropdown" Spalte "A") und in Tabelle1 Zelle "B1" soll dann ein weiteres DD, das nur die Inhalte aus dem TB "Dropdown" Spalte "B" listet, die mit dem Zellinhalt aus Tabelle1 "A1" korrespondieren. Spalte "C" wird dann über eine Formel ermittelt und Spalte "D" erhält einen manuellen Eintrag bevor es dann nach rechts mittels Formeln etc. weitergeht.

Vielleicht hast Du ja eine Idee wie ich das hinbekomme. Danke schon mal.

 

Hallo!

Hmm, da du die Gültigkeit ja nicht nur in einer Zelle brauchst, sondern in der gesamten Spalte, ist eine VBA-Lösung hier eindeutig praktikabler.
Wenn du diesen Code ins Modul von Tabelle1 kopierst, müsste es eigentlich klappen.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objDic As Object, vntIn1, vntIn2, L As Long, vntOut
On Error Resume Next
vntIn1 = Sheets("Dropdown").Range("A2:A65536").Value
Set objDic = CreateObject("Scripting.Dictionary")
If Not Intersect(Target, Range("A2:A65536")) Is Nothing Then
    For L = LBound(vntIn1) To UBound(vntIn1)
        objDic(CStr(vntIn1(L, 1))) = 0
    Next
    vntOut = objDic.keys
    vntOut = Join(vntOut, ",")
    Target.Validation.Delete
    Target.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlEqual, Formula1:=vntOut
End If
If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
    vntIn2 = Sheets("Dropdown").Range("B2:B65536").Value
    For L = LBound(vntIn1) To UBound(vntIn1)
        If vntIn1(L, 1) = Target.Offset(0, -1) Then objDic(CStr(vntIn2(L, 1))) = 0
    Next
    vntOut = objDic.keys
    vntOut = Join(vntOut, ",")
    Target.Validation.Delete
    Target.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlEqual, Formula1:=vntOut
End If
Set objDic = Nothing
End Sub