gesteuerte Dropdownfelder
24.01.2006 16:13:04
georg
ich will eine Datenbankauswertung mit Hilfe von 3 Dropdownfeldern machen. Die Datenbank hat 3 Keys (Segment, Kunde, Projekt), die eindeutig zugeordnet sind. Ich will die Dropdowns jetzt so einrichten, daß in dem untergeordneten Dropdown nur die Felder zu sehen sind, die zu dem übergeordneten gehören. D.h. ich wähle erst das "Segment" aus (in B12) und bekomme dann in "Kunde" (in C12) nur die Kunden gezeigt, die zu dem "Segment" gehören. Wähle ich dann einen dieser Kunden aus, bekomme ich im Feld "Projekt" nur die Projekte gezeigt, die zu dem Kunden gehören. Soweit so gut - den ersten Teil habe ich geschafft.
Mittels:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$12" Or Target.Address = "$c$12" Then Call AccountsSetzen
End Sub
und
Sub AccountsSetzen()
ActiveSheet.PivotTables("PivotTable5").PivotFields("Segment").CurrentPage = _
ActiveSheet.Range("b12").Value
ActiveSheet.PivotTables("PivotTable6").PivotFields("Kunde").CurrentPage = _
ActiveSheet.Range("c12").Value
End Sub
habe ich es geschaft, daß die Dropdowns für "Kunde" automatisch aktualisieren (wenn in der Zelle "Segment" ein neuer Wert ausgewählt wird) indem sich das ausgewählte Segment in eine Pivottabelle (zur Verdichtung) für Kunden schreibt.
Ich dachte, daß dies auch für die Steuerug von "Kunde" auf "Projekt" funktioniert. Tut es aber nicht !!!!! Ich muß das Makro für diesen zweiten Schritt immer erst manuell starten. Dann geht es.
Es muß wohl ein Fehler im
Private Sub sein, oder?
Wer kann Helfen?
Beispiel unter: <a href="https://www.herber.de/bbs/user/30338.xls">https://www.herber.de/bbs/user/30338.xls</a>