Datum vinden vanuit maand en jaar

[ahdbrouw]

Besta VBA-liefhebbers,

In Combobox3 heb ik alle maanden van het jaar, in combobox2 heb ik verschillende jaren (2013,2014,...)

Ik maak een string Datum=ComboBox3.ListIndex + 1 & "/" & ComboBox2.Value

Bij september 2014 geeft Datum 9/2014 weer

mijn bedoeling is in een range alle data te vinden van deze maand in dit jaar, ongeacht welke dag van de maand:

With Worksheets("Gezamelijke").Range("A6:A500")

Set Rng = .Find(Datum, LookIn:=xlValues)

If Not Rng Is Nothing Then

FirstAddress = Rng.Address

Do

'om te zien welke data gevonden worden:

MsgBox Datum & " op adres: " & Rng.Value

...

Set Rng = .FindNext(Rng)

Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress

End If

End With

De eerste datum dat zou moeten gevonden worden is 2/09/2014

maar in de plaats vindt hij enkel de data waar een 9 in de dag komt, vb: 19/09/2014, 9/09/2014, 29/09/2014, ...kan ie

Kan iemand mij hieruit helpen aub?

Avast bedankt!

Annelies

[ahdbrouw]

Ik heb

Dim Datum as string

veranderd naar

Dim Datum as Date

Nu neemt hij enkel 1/9/2014

...