Datum in Liste vorhanden?Check
22.10.2021 17:32:35
Andreas
eine Combobox wird mit nachfolgendem Code im Userform_Initialize gefüllt. Dieser Code sammelt in einer Tabellenspalte die vorkommenden Datums und gibt sie gesammelt in der Combobox wieder.
...
Dim varWerte, varItem As Variant
Dim objDictionary As Object
With Worksheets("Nachweise")
varWerte = .Range(.Cells(5, 3), .Cells(.Rows.Count, 3).End(xlUp)).Value
Set objDictionary = CreateObject("Scripting.Dictionary")
For Each varItem In varWerte
objDictionary.Item(Key:=varItem) = vbNullString
Next
End With
Me.ComboBoxDatum.List = objDictionary.Keys
Set objDictionary = Nothing
...
Ich würde jetzt gerne in einer weiteren Routine später prüfen, ob in dieser Liste das heutige Datum vorgekommen ist. Wenn nein, soll eine msgbox mit "nein" kommen. wenn ja, eine Msgbox mit "ja" kommen. Wie muss ich da vorgehen?