Textbox in Abhängigkeit von 2 Comboboxen

Hallo Experten,
ich brauche bitte eine Lösung für folgendes Problem:
Ich habe 3 Spalten in Tabelle1. Die erste Spalte sind Produktabmessungen. In der 2. Spalte befinden sich Verpackungsschlüssel. In der dritten Spalte die Anzahl Verpackungseinheiten, je nach Konstellation Spalte 1 und Spalte 2. Die Konstellation ist immer eindeutig.
Ich möchte nun das Ganze in einer Userform mit 2 Comboboxen (Auswahl Produktabmessung in CB1 und Auswahl Verpackung in CB2) und einer Textbox (=Ausgabe der Anzahl Verpackungseinheiten) realisieren, aber ich bekomme es nicht gebacken. Ausserdem sollen sich gleiche Werte aus Spalte 1 und gleiche Werte aus Spalte 2 in den jeweiligen Comboboxen nicht wiederholen, sondern nur 1x angezeigt werden.
Googeln half mir bislang leider auch nicht weiter.
Hat bitte jemand eine Lösung dafür ?
Mappe1 habe ich zum besseren Verständnis angehängt.

Die Datei https://www.herber.de/bbs/user/95295.xlsm wurde aus Datenschutzgründen gelöscht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For lloRow = 3 To Cells(Rows.Count, 2).End(xlUp).Row For liIdx1 = 0 To UBound(lstrCmb1) If Range("B" & lloRow).Value = lstrCmb1(liIdx1) Then lboNo1 = True Exit For End If Next For liIdx1 = 0 To UBound(lstrCmb1) If Range("C" & lloRow).Value = lstrCmb2(liIdx2) Then lboNo2 = True Exit For End If Next

Hi Walter
Übernimm für das S.ub sbFillTxt komplett diesen Code (den Zeilenumbruch in der MsgBox-Zeile nicht mit übernehmen):

Sub sbFillTxt(box1 As String, box2 As String)
Dim lloRow As Long, lboHit As Boolean
If box1 = "" Or box2 = "" Then Exit Sub
UserForm1.TextBox1.Text = ""
For lloRow = 3 To Cells(Rows.Count, 2).End(xlUp).Row
If Range("B" & lloRow).Value = box1 And _
Range("C" & lloRow).Value = box2 Then
lboHit = True
Exit For
End If
Next
If lboHit = True Then
UserForm1.TextBox1.Text = Range("D" & lloRow).Value
Else
MsgBox "Das war nix...oder hier eben der Text, den du haben willst.",  _
vbExclamation, "Hinweis"
End If
End Sub

Der Hintergrund:
Es muss immer erst die ganze Tabelle durchsucht werden, weil ja die Auswahl in den Comboboxen an unterschiedlichen Stellen in der Tabelle zu finden sein kann.
Die Auswahl beider Werte muss sich in der Tabelle zwar in der gleichen Zeile befinden, aber diese "Trefferzeile" in der Tabelle kann sich halt in jeder Zeile befinden.
Und wenn du einen Hinweis haben willst, wenn kein Treffer, dann muss zuerst so was wie ein An/Ausschalter (lboHit = True) verwendet werden.
lboHit ist als Boolesche Variable deklariert und kann nur die Werte 1 oder 0, True oder False annehmen....eben an oder aus.
Wenn lboHit = an, dann erhält die Textbox einen Wert.
Wenn lboHit = aus, erscheint die MsgBox.
Hoffe, ich konnte das verständlich erklären.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Textbox in Abhängigkeit von 2 Comboboxen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textbox in Abhängigkeit von 2 Comboboxen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread