Private Sub bandbreite_Change()
Set finden = Worksheets("Tabelle1").Columns(3).Find(what:=bandbreite)
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
If banddicke.Value = tbl.DataBodyRange(Zeile, 1).Value Then
bandbreite.AddItem tbl.DataBodyRange(Zeile, 2).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