ComboBoxen ohne Duplikate
29.10.2018 16:48:33
Markus
anbei habe ich einen Code, mit dem ich dem ich nur einen bestimmten Zeitraum in der Listbox abbilde. Er funktioniert einwandfrei, jedoch möchte ich gerne, dass die Einträge in den 2 ComboBoxen ohne Duplikate angezeigt werden. Ich habe es heute Nachmittag mit meinen bescheidenen VBA Kenntnissen probiert, allerdings ohne Erfolg.
Hier der Code für die Zeitraumeingrenzung:
Public bLoad As Boolean
Private Sub ComboBox1_Change()
Call LbLaden
End Sub
Private Sub ComboBox2_Change()
Call LbLaden
End Sub
Private Sub UserForm_Initialize()
Dim iZeile As Long
bLoad = True
With Worksheets("Sheet1")
For iZeile = 2 To .Cells(.Rows.Count, 19).End(xlUp).Row
ComboBox1.AddItem .Cells(iZeile, 19)
ComboBox2.AddItem .Cells(iZeile, 19)
Next iZeile
End With
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = ComboBox2.ListCount - 1
ListBox1.ColumnCount = 3
bLoad = False
Call LbLaden
End Sub
Private Sub LbLaden()
Dim iZeile As Long
Dim iCounter As Long
Dim arList() As Variant
If bLoad Then Exit Sub
With Worksheets("Sheet1")
ListBox1.Clear
If CDate(ComboBox1) > CDate(ComboBox2) Then
MsgBox "Start date cannot be older"
Exit Sub
End If
For iZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(iZeile, 19) >= CDate(ComboBox1) And .Cells(iZeile, 19) Ich habe es heute mit folgenden Code-Zeilen probiert, allerdings weiß ich nicht, ob ich mich damit überhaupt auf dem richtigen Weg befinde.
Private Sub UserForm_Initialize()
Dim objDic As Object
Set objDic = CreateObject("Scripting.Dictionary")
Me.ComboBox1.List = objDic.keys
End Sub
Vielen Dank euch für eure Mühe und Hilfe!
Anzeige