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