|
Hallo,
Ich habe ein Dropdown Feld welches ich mit Daten aus einer Tabelle auslesen lasse und jeden doppelten Eintrag ausblende. Hier handelt es sich um eine Liste mit Kalender Daten. Es kommt vor das an einem Tag mehrere Einträge gemacht worden sind und ich in der Dropbdown aber immer nur ein Tag sehen möchte.
Private Sub UserForm_Initialize()
Dim hsh As Object, i As Long
Set hsh = CreateObject("Scripting.Dictionary")
With Sheets("Import")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
hsh(.Cells(i, 1).Text) = 0
Next
End With
Me.ComboBox1.List = Application.Transpose(hsh.Keys)
End Sub
Nun hab ich eine ListBox wo ich die Wenn ich im Dropdown zb. 01.08.2017 auswähle alle Daten aus diesem Tag sehen kann und diese später wiederum anklicken kann um Werte von diesem Datensatz zu ändern.
Hoffe ich konnte mein anliegen rüberbringen.
Danke schonmal für eure Hilfe
flowers |