Office: 2. ComboBoxen in Abhängigkeit von einander

m2r · 8. Februar 2010

Hallo zusammen,

ich bräuchte mal wieder Eure Hilfe, ich komme leider nicht mehr weiter.

Folgende Aufgabenstellung möchte ich lösen:

Ich habe eine Tabelle mit Werte in Spalte A (Eingruppierung) und zugehörigen Werten in Spalte B (Ausprägung).
Durch den Button "START" wird eine Userform gestartet, in der sich zwei Comboboxen befinden. Mit der ersten Combobox möchte ich den Wert (Eingruppierung) für den Spezialfiter definieren. In der zweiten Combobox sollen dann nur noch die entsprechenden Ausprägungen angezeigt werden. Leider scheine ich beim Aufruf des Spezialfiters einen Fehler zu machen.

Allgemeine Funktionsweise: Nach einer Änderung in der 1. Combobox, soll die Auswahlliste für die 2. Combobox neu erstellt werden.

Die Beispieldatei mit dem jeweiligen Code, könnt Ihr der beigefügten Datei entnehmen.

Wäre super, wenn Ihr mir bei meinem Problem helfen könntet.

MfG m2r

System: Excel 2003 / 2007 mit WinXP / Vista -> inkl. aller SP

:)

chris-kaiser · 10. Februar 2010

hiho

Code:

Private Sub auswahl2_Change()
[B3] = auswahl2.Value
End Sub

Private Sub cboFilter_Change()
Call fill_me(cboFilter.Value)
[A3] = cboFilter.Value
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
Dim objDict, i As Long
Dim arr(), za As Long, lngCount As Long, lngCheck As Long, tmp
Set objDict = CreateObject("Scripting.Dictionary")
'On Error GoTo msg
With Sheets(1)
For i = 6 To .Cells(Rows.Count, 1).End(xlUp).Row
If Not objDict.exists(.Cells(i, 1).Value) Then
Call objDict.Add(.Cells(i, 1).Value, Empty)
ReDim Preserve arr(za)
arr(za) = .Cells(i, 1).Value
za = za + 1
End If
Next
End With
For lngCount = 0 To za - 1
For lngCheck = lngCount + 1 To za - 1
If arr(lngCount) > arr(lngCheck) Then
tmp = arr(lngCount)
arr(lngCount) = arr(lngCheck)
arr(lngCheck) = tmp
End If
Next
Me.cboFilter.AddItem arr(lngCount)
Next

Exit Sub
msg:
MsgBox Err.Number & ": " & Err.Description

End Sub

Sub fill_me(Str_A As String)
Me.auswahl2.Clear
Dim obgef As Object, firstMatch As String
Set obgef = Sheets(1).Range("A6:A" & Rows.Count).Find(Str_A, Lookat:=xlWhole)
If Not obgef Is Nothing Then
firstMatch = obgef.Address
Do
Me.auswahl2.AddItem obgef.Offset(0, 1).Value
Set obgef = Sheets(1).Range("A6:A" & Rows.Count).FindNext(obgef)
Loop While Not obgef Is Nothing And obgef.Address firstMatch

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nur habe ich bei deinen cbo(s) das linked und die Rowsource entfernt
und ein wenig dynamisch gestaltet.

m2r · 10. Februar 2010

Hallo Chris-Kaiser,

danke für Deine schnelle Antwort.
Habe mir Deine Umsetzung einmal angesehen und sie funktioniert wirklich gut.
Hätte jedoch zu der Ausführung noch einmal eine Frage.
Du durchsuchst die Zeilen in der Spalte A (Eingruppierung) und übergibst diese an die 1. ComboBox. Wo und wie könnte ich denn im Code einen Wert hinzufügen bei dessen Auswahl ich alle Ausprägungen von Spalte B angezeigt bekomme. Also so eine Art "kein Filter"?

Gruß m2r

chris-kaiser · 10. Februar 2010

hi

viele Möglichkeiten *Smilie

ich habe mal eine mit Option eingebaut

m2r · 10. Februar 2010

Hallo chris-kaiser,

PERFEKT funktioniert wunderbar.

Danke.

Gruß m2r

Office: 2. ComboBoxen in Abhängigkeit von einander

2. ComboBoxen in Abhängigkeit von einander

2. ComboBoxen in Abhängigkeit von einander

2. ComboBoxen in Abhängigkeit von einander

2. ComboBoxen in Abhängigkeit von einander - Similar Threads - ComboBoxen Abhängigkeit einander

Combobox soll zur nächsten Txtbox wechseln zum befüllen

Combobox einbinden

Dynamische Combobox mit zwei Bedingungen

Userform Textfeld füllen abhängig von Wert aus Combobox

Combobox in Abhängigkeit befüllen

ListBox in Abhängigkeit von ComboBox

Formel abhängig v. ComboBox-Eintr. bestimmter Zelle zuordnen