AW: such den Beitrag,warum sollen die Helfer suchen?
20.10.2015 12:26:14
Daniel
Hi
dann brauchst du folgenden Code.
den Kunden hab ich mal aussen vor gelassen.
Dim dicTarif As Object
Private Sub ComboBox1_Click()
TextBox1.Text = dicTarif(ComboBox1.Text & "|" & ComboBox2.Text)
End Sub
Private Sub ComboBox2_Click()
TextBox1.Text = dicTarif(ComboBox1.Text & "|" & ComboBox2.Text)
End Sub
Private Sub userform_initialize()
Dim dicGebiet As Object
Dim dicLeistung As Object
Dim arr
Dim z As Long
Set dicGebiet = CreateObject("scripting.dictionary")
Set dicLeistung = CreateObject("scripting.dictionary")
Set dicTarif = CreateObject("scripting.dictionary")
arr = Sheets("Tabelle2").Cells(1, 1).CurrentRegion.Value
For z = 2 To UBound(arr, 1)
dicGebiet(arr(z, 1)) = 0
dicLeistung(arr(z, 2)) = 0
dicTarif(arr(z, 1) & "|" & arr(z, 2)) = arr(z, 3)
Next
ComboBox1.List = dicGebiet.keys
ComboBox2.List = dicLeistung.keys
End Sub
Gruss Daniel