Marker område ud fra Dato

Forslag :
Marker dine datoer i kolonne B og skriv list1 i navneboksen
Indsæt datavallist i A1 og A2 med kilde: list1

har ændret lidt påkoden

Sub tst()
Dim fra, til, f, t

fra = Sheets("Ark1").Range("A1")
til = Sheets("Ark1").Range("A2")

f = Sheets("Ark1").Range("B1:B1000").Find(fra, LookIn:=xlValues, lookat:=xlWhole).Row
t = Sheets("Ark1").Range("B1:B1000").Find(til, LookIn:=xlValues, lookat:=xlWhole).Row
Sheets("Ark1").Activate
Range("C" & f & ":D" & t).Select

End Sub

Hej Excelent

Tak for svaret og undskyld den sene kommentar!

Hvordan laver jeg denne datavalist med kilde i list1?

Kan man ikke lave en script, som blot vælger den nærmste dato i B1:B1000 og derved slipper for at lave en list osv.
Jeg har altså et interval mellem A1 og A2 i datoer. Herefter skal jeg have den at marker den range af data som ligger derimellem i B1:B1000. Det er ikke altid givet, at datoerne som står i A1 og A2 fremkommer i B1:1000. I disse sitiuationer, skal den gerne marker den nærmeste i intervallet.

Jeg håber det foreklarer det lidt bedre

jo det kan man da godt - prøv denne

Sub FinDato()
Set sh = Sheets("Ark1")
fra = sh.Range("A1")
til = sh.Range("A2")

For t = 1000 To 1 Step -1
If sh.Cells(t, 2) <> "" And sh.Cells(t, 2) < fra Then fra = t + 1: Exit For
Next

For t = 1 To 1000
If sh.Cells(t, 2) <> "" And sh.Cells(t, 2) > til Then til = t - 1: Exit For
Next

sh.Range("B" & fra & ":B" & til).Select
End Sub

Hvad nu der er mere en 1000 værdier i Kolonne B - Kan man bare bruge hele kolonne B - uafhængigt af antalllet af værdier i kolonne B

så retter du 1000 til det tal som passer 2 steder i koden