Find dato

Jeg er ikke helt med. I B1 står fx Januar eller 1. I B2 står 2004. Hvordan skal den finde datoen ud fra det? Er der kun en dato i hver måned i kolonne A eller er der flere? Hvis der er flere, hvilken skal den så finde?  Hvad skal den gøre ved datoen, når den finder den?

I B1 er måneder angivet med tal, eks. 1 for januar, og 12 for december.
I B2 er år angivet med tal, eks. 2004.
I kolonne A er der en kalender, kun med en dato i hver celle (dd-mm-yyyy).
Når datoen er fundet, skal cellen markeres.

Men ud fra kun måned og år er det jo ikke muligt at finde en dato. Dagen må også med. Der er fx 31 datoer i januar 2004, så hvilken af dagene i den måned er det, at du ønsker at finde?

Kan alle datoer med de angivne måned og år markeres.
Undskyld forviringen.

et bud

Public Sub FindDato()
Dim Nr1 As Boolean, Fad As String, Lad As String
Nr1 = False
r = Range("A65536").End(xlUp).Row
md = Range("B1")
aar = Range("B2")
For Each C In Range("A1:A" & r)
If Month(C) = md And Year(C) = aar Then
If Nr1 = False Then
Fad = C.Address
Nr1 = True
Else
Lad = C.Address
End If
End If
Next
Range(Fad & ":" & Lad).Select
End Sub

kabbak-> Din løsning virker kun hvis datoerne står i rækkefølge, ikek vhsi de står spredt i kolonnen. Men der måske godt nok her. Jeg har selv prøvet at gemme adresserne i et array, og så markere indholdet af array'et men uden held :-(

jeg ved det, men håbede på at de var i rækkefølge.

jkrons, her en der tager spredte data.

Public Sub FindDato()
Dim Nr1 As Boolean, Fad As String
Nr1 = False
r = Range("A65536").End(xlUp).Row
md = Range("B1")
aar = Range("B2")
For Each C In Range("A1:A" & r)
If Month(C) = md And Year(C) = aar Then
If Nr1 = False Then
Fad = C.Address
Nr1 = True
Else
Fad = Fad & "," & C.Address
End If
End If
Next
Range(Fad).Select
End Sub

:-)

Virker fint.
Nu har jeg kun datoer i rækkefølge, så begge forslag virker.

Tak for hjælpen, begge to.

ok så et svar. ;-))

tak for pointz