[?] Produkt-Konfigurator über Dropdown

Hallo zusammen!
Ich bin immer wieder mal in Excel unterwegs und habe vor kurzem auch etwas angefangen mit VBA zu experimentieren.
Aktuell stehe ich vor dem Problem, dass ich für ein kleines Projekt gerne Excel nutzen würde, um eine Art Produkt-Konfigurator zu entwerfen.
Ich habe also eine Liste an Artikeln, welche unterschiedliche Optionen zur Auswahl haben. Jede gültige (machbare) Kombination hat eine Artikelnummer. Wenn man nun die Artikelnummer nicht kennt und in einer langen Liste nicht manuell suchen möchte, würde ich gerne einen Konfigurator nutzen.
Meine Idee sind verlinkte (also "intelligente") Dropdownfelder. Ich wähle so zB als erstes das Basis-Produkt, bekomme dann in weiteren Dropdowns daneben für die verschienenen Optionen alle verfügbaren angezeigt. Mit jeder Auswahl schränke ich die anderen Felder immer weiter ein, bis am Ende ein eindeutiger Artikel bleibt zu dem ich dann aus einer Spalte die Artikelnummer anzeigen möchte.
Eine Datei, wie das Ganze aussehen soll (keine Funktion, nur Dummy zu Illustrationszwecken) ist hier:
https://www.herber.de/bbs/user/141600.xlsx
Anfangs dachte ich an die Funktion INDIREKT bzw. die verschiedenen VERWEISE, aber da es ja dynamisch sein soll, dass mehrere Felder aufeinander reagieren, denke ich, dass das nur über VBA machbar ist. Und hier hört mein Wissen dann sehr schnell auf, leider.
Wenn mir jemand die Richtung zeigen könnte oder es sowas gar schon gibt als einfaches Beispiel, wäre ich sehr dankbar. :)
Beste Grüße,
Fabian

Hi
hier mal eine VBA-Lösung für deine Beispieldatei.
bevor du den Code einfügst, musst du alle notwendigen DropDowns mit dem Typ "Liste" anlegen.
die Liste ist egal.
Wenn du so eine Zelle anklickst, ermittelt der Code die aktuell notwendigen Werte und fügt sie in die Liste des DropDowns ein.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr
Dim z As Long, s As Long
Dim arrDaten
Dim arrAuswahl
Dim rngAuswahl As Range
Dim Pos As Long
Dim dicWerte
Set dicWerte = CreateObject("Scripting.dictionary")
Set rngAuswahl = Intersect(Target.EntireRow, Range("B:G"))
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, rngAuswahl) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
Application.EnableEvents = True
Exit Sub
End If
Application.EnableEvents = True
If Target.Validation.Type  3 Then Exit Sub
arrDaten = Cells(2, 2).CurrentRegion.Value
arrAuswahl = rngAuswahl.Value
Pos = Target.Column - rngAuswahl.Column + 1
For z = 2 To UBound(arrDaten, 1)
For s = 1 To UBound(arrDaten, 2) - 1
If s = Pos Then
ElseIf arrAuswahl(1, s) = "" Then
ElseIf arrAuswahl(1, s) = arrDaten(z, s) Then
Else
Exit For
End If
Next
If s > UBound(arrDaten, 2) - 1 Then dicWerte(arrDaten(z, Pos) & "") = 0
Next
Target.Validation.Modify Formula1:=Join(dicWerte.keys, ",")
End Sub

Gruß Daniel

[?] Produkt-Konfigurator über Dropdown

Forumthread: [?] Produkt-Konfigurator über Dropdown

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial