Komboboxen Problem
09.03.2023 06:33:32
Sascha
Ich nutze Office 365 und baue zur Zeit an einer Excel-Datenbank.
Mein Problem betrifft in einer Userform die Komboboxen, wo ich absolut nicht weiterkomme.
Tabelle: Banddicke, Bandbreite, Gewicht. Sortiert nach Banddicke (dünn->dick)
Userform mit Kombobox1 (banddicke); Kombobox2 (bandbreite); Textbox (gewicht) zur Ausgabe des Gewichtes und eine Textbox(dicke) zur Kontrolle.
Ich wähle zuerst in KB1 die Banddicke aus, dann in der nach Filter gefüllte KB2 die Bandbreite aus. In der Textbox Gewicht soll dann das Gewicht erscheinen, in der Textbox dicke soll zur kontrolle die Banddicke nochmal angezeigt werden.
Zur Auswahl Momentan: 0,70mm, 0,90mm (Beide unteranderem x 1000mm, 1200mm)
Ich wähle 0,70x1000mm aus, kommt das richtige Gewicht 5,6kg. Ich wähle 0,90x1000mm aus, kommt das Gewicht 5,6kg und in der Kontrollbox steht 0,70mm.
Excel scheint hier immer den ersten Datensatzeintrag zu wählen, der die 1000mm hat. Auch so mit 1200mm. Wie bekomme ich das hin, daß Excel das richtig zuordnet? Und warum zeigt mir die KB Bandbreite nichts an, wenn ich in der KB Banddicke nur die Zahl, zB 1, stehen habe. In dem Tabellenfeld muss 1,00mm stehen. Wäre für Hilfe absolut Dankbar!!!
Hier die Testdatei
https://www.herber.de/bbs/user/158190.xlsm
Und hier der Code
Private Sub bandbreite_Change()
Set finden = Worksheets("Tabelle1").Columns(3).Find(what:=bandbreite, lookat:=xlWhole, LookIn:=xlValues)
dicke = finden.Offset(0, -1)
gewicht = finden.Offset(0, 1)
End Sub
Private Sub banddicke_Change()
bandbreite.Clear
bandbreite.Enabled = True
Dim Zeile As Long
Dim tbl As ListObject
Set tbl = Tabelle1.ListObjects("Kilogramm")
For Zeile = 1 To tbl.DataBodyRange.Rows.Count
If banddicke.Value = tbl.DataBodyRange(Zeile, 2).Value Then
bandbreite.AddItem tbl.DataBodyRange(Zeile, 3).Value
End If
Next Zeile
End Sub
Private Sub UserForm_Initialize()
banddicke.List = Range("Kilogramm[Dicke]").Value
Dim odic As Object
Set odic = CreateObject("scripting.dictionary")
Dim cell As Range
For Each cell In Tabelle1.Range("Kilogramm[Dicke]")
odic(cell.Value) = 0
Next cell
banddicke.List = odic.keys
End Sub