abhängige ComboBoxen

Hallo liebes Forum!
Als VBA-Greenhorn aber begeisteter Excel User beginne ich mit mit VBA zu beschäftigen.
Ich habe das Netz nach folgendem Problem durchsucht, aber entweder zu spezielle oder nicht passende Informationen gefunden:
Ich möchte eine Tabelle mit Hilfe einer Maske filtern. Die Auswahl der Filterkriterien soll dabei über drei Paare von jeweils 2 abhängigen Comboboxen erfolgen. Dazu habe ich eine Userform erstellt. Die erste Box soll mit der Liste der Kriterien gefüllt werden, die in mehreren Spalten stehen (auch gerne mit ColumnHeads). Die jeweils zweite Box soll die abhängigen Werte des ausgewählten Kriteriums in dieser Spalte enthalten, das am besten dynamisch, da die Tabelle nach unten wächst und ohne doppelte Werte in der Auswahlliste. Da insbesondere scheitere ich. Ich habe so max. 3 Kriterien, nach denen gefiltert werden soll.
Zum besseren Verständnis hänge ich die Datei an, an der ich schon ein paar codes probiert habe:https://www.herber.de/bbs/user/97558.xlsm
Freue mich auf Vorschläge. Vielen Dank.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboKrit1_Change() Set ws = Worksheets("Daten Maxi 8a") For spalte = 1 To ws.UsedRange.Columns.Count If ws.Cells(1, spalte) = ComboKrit1.Value Then Exit For End If Next zeile = 2 Do While ws.Cells(zeile, spalte) 0 ComboBegriff1.AddItem ComboBegriff1.List(ComboBegriff1.ListCount - 1, 0) = ws.Cells(zeile, spalte) zeile = zeile + 1 Loop End Sub

Private Sub ComboKrit1_Change() Set ws = Worksheets("Daten Maxi 8a") For spalte = 1 To ws.UsedRange.Columns.Count If ws.Cells(1, spalte) = ComboKrit1.Value Then Exit For End If Next With ComboBegriff1 zeile = 2 ComboBegriff1.Clear Do While ws.Cells(zeile, spalte) 0 x = False begriff = ws.Cells(zeile, spalte) For combozeile = 0 To .ListCount - 1 If .List(combozeile, 0) = begriff Then x = True Exit For End If Next If x = False Then .AddItem .List(.ListCount - 1, 0) = ws.Cells(zeile, spalte) End If zeile = zeile + 1 Loop End With End Sub

Private Sub CommandButton1_Click() Set ws = Worksheets("Daten Maxi 8a") For spalte = 1 To ws.UsedRange.Columns.Count If ws.Cells(1, spalte) = ComboKrit1.Value Then Exit For End If Next Selection.AutoFilter ActiveSheet.Range("$A$1:$AA$51").AutoFilter Field:=spalte, Criteria1:=ComboBegriff1.Value End Sub

So jetzt!! Viel Spaß. Hoffe das ist ausreichend :)


Private Sub ComboKrit1_Change()
Set ws = Worksheets("Daten Maxi 8a")
'************Richtige Spalte finden************
For spalte = 1 To ws.UsedRange.Columns.Count
If ws.Cells(1, spalte) = ComboKrit1.Value Then
Exit For
End If
Next
With ComboBegriff1
zeile = 2
ComboBegriff1.Clear
'************Verarbeitung************
Do While ws.Cells(zeile, spalte)  0   'nur solange ausführen bis Nullen kommen
x = False                           'x als Zähler eingefügt, zu beginn immer auf false
begriff = ws.Cells(zeile, spalte)   'einzufügender Begriff, der in Combo Box kommt
For combozeile = 0 To .ListCount - 1    'Schleife von Anfang bis Ende der Comobox
If .List(combozeile, 0) = begriff Then  'Überprüfen ob Begriff bereits vorhanden
x = True                'Wenn Begriff vorhanden wird x Wahr
Exit For                'Schleife kann in diesem Fall beendet werden
End If
Next
If x = False Then           'Jetzt kann überprüft werden ob x sich geändert hat
.AddItem                'Wenn es sich nicht geändert hat, also Begriff noch
.List(.ListCount - 1, 0) = ws.Cells(zeile, spalte)  'nicht vohanden ist, kann
End If                      'Begriff eingefügt werden
zeile = zeile + 1               'Zeile muss um eins erhöht werden für nächsten Begriff
Loop
End With
End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

abhängige ComboBoxen

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

299 Forumthreads zu ähnlichen Themen

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