Combo Box Listen aus Pivot

Hallo zusammen,
ich habe eine große Tabelle mit Daten, die wie folgt aufgebaut ist:

Spalte A          Spalte B
Deutschland       München
Niederlande       Amsterdam
Polen             Warschau
Deutschland       Berlin
Dänemark          Kopenhagen
Deutschland       Bremen

Die Liste kann sich jederzeit beliebig erweitern oder reduzieren.
Ich möchte nun aus diesen Daten erst über eine Combo Box das Land auswählen.
Dies funktioniert soweit. Ich habe Länder in eine Pivot eingefügt und mit einer variablen Liste in die Combo Box über ListFillRange eingefügt.
Nun möchte ich, dass nachdem ich z.B. Deutschland in Combo Box 1 gewählt habe, in der zweiten Combo Box nur München, Berlin und Bremen angezeigt werden.
Nur bekomme ich das nicht mit einer Pivot geregelt...
Vielleicht kann mir jemand bei meinem Problem helfen.
Danke und viele Grüße
Olli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox1_Click() Dim objList As Object, vArr, i As Long Set objList = CreateObject("scripting.dictionary") vArr = Sheets(1).Cells(1, 1).CurrentRegion For i = 2 To UBound(vArr) If vArr(i, 1) = ComboBox1 Then objList(vArr(i, 2)) = 0 End If Next With ComboBox2 .List = WorksheetFunction.Transpose(objList.keys) .ListIndex = 0 End With End Sub Private Sub ComboBox1_DropButtonClick() Dim objList As Object, vArr, i As Long Set objList = CreateObject("scripting.dictionary") vArr = Sheets(1).Cells(1, 1).CurrentRegion For i = 2 To UBound(vArr) objList(vArr(i, 1)) = 0 Next With ComboBox1 .List = WorksheetFunction.Transpose(objList.keys) End With End Sub

Das führt leider auch nicht zum gewünschten Erfolg...ich kann leider nicht sagen warum, da ich den Code absolut nicht verstehe.
Ich habe mir jetzt gerade überlegt, dass ich die 2. Box auch über Umwege mit einer Pivot Tabelle befüllen könnte.
Habe dafür den Wert aus ComboBox1 in Zelle J10 geschrieben.
Nun möchte ich die Pivot auf Basis dieses Werts Filtern, um die Liste der Städte zu bekommen.
Bekomme allerdings immer einen Fehler. Habt ihr eine Idee?


Worksheets("Data").Cells(1, 10).Value = Me.ComboBox1.Text
Worksheets("Data").PivotTables("PivotTable2").PivotFields("Country").ClearAllFilters
Worksheets("Data").PivotTables("PivotTable2").PivotFields("Country").CurrentPage =  _
Worksheets("Data").Cells(1, 10).Value

Bekomme immer einen Laufzeitfehler 1004, Die PivorFields-Eigenschaften des PivotTable-Objektes kann nicht zugeordnet werden.

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combo Box Listen aus Pivot

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread