23.08.2018, 09:13
Hallo,
ich habe in ein Userform erstellt, worin eine Combobox und eine TextBox ist.
Nun möchte ich aus in der Combobox, Spalte B6-B800 meiner Excel Tabelle ohne doppelte Einträge wiedergeben und bei Auswahl des Kunden, die dazugehörige E-Mail in der TextBox angezeigt bekommen, die sich in Spalte G6-G800 befindet.
Die doppelten Einträge werden schon entfernt, nur wird mir nicht die richtige E-Mail vom Kunden in der TextBox wiedergeben.
Ich hoffe mir kann jemand helfen und es erklären.
Gruß
Daniel
ich habe in ein Userform erstellt, worin eine Combobox und eine TextBox ist.
Nun möchte ich aus in der Combobox, Spalte B6-B800 meiner Excel Tabelle ohne doppelte Einträge wiedergeben und bei Auswahl des Kunden, die dazugehörige E-Mail in der TextBox angezeigt bekommen, die sich in Spalte G6-G800 befindet.
Die doppelten Einträge werden schon entfernt, nur wird mir nicht die richtige E-Mail vom Kunden in der TextBox wiedergeben.
Code:
Private Sub ComboBox1_Change()
TextBox1.Text = Worksheets("Montag").Cells(ComboBox1.ListIndex + 6, 7)
End Sub
Private Sub UserForm_Initialize()
Dim oDic As Object, meAr
Dim A As Long
Set oDic = CreateObject("Scripting.Dictionary")
'Tabelle anpassen
With Sheets("Montag")
'bereich anpassen, hier ohne Überschrift
meAr = .Range("B6:G800", .Cells(.Rows.Count, 3).End(xlUp))
End With
For A = 1 To UBound(meAr)
oDic(meAr(A, 1)) = 0
Next
ComboBox1.List = oDic.keys
End SubGruß
Daniel