VBA Datum en naan

[GelukC]

Hallo,

Ik heb een stukje VBA waarbij ik een lijst in cellen laat zetten. Deze lijst zijn de data tussen een start -en een eind datum.

Nu wil ik graag dat deze nieuw gemaakte range automatisch de naam "BEREIK" krijgt.

Alvast bedankt,
Collin

 

[NajKwin]

Zo misschien?

 

[AHulpje]

ActiveWorkbook.Names.Add Name:="BEREIK", RefersTo:=Range(Cells(1, 4), Cells(EndD - StartD, 4))

 

[HSV]

Of:

Sub Bepaal_Dagen()
With Range("d1")
  .CurrentRegion.ClearContents
  .Value = Range("a2")
  .Resize(Range("b2") - Range("a2")).DataSeries , 3, 1   'xlchronological, xlday
  .CurrentRegion.Name = "BEREIK"
End With
End Sub

 

[JEC.]

Of maak gewoon een naam aan met een formule. Heb je geen VBA voor nodig.


In de name manager met als naam: BEREIK

=$A$2+REEKS($B$2-$A$2)-1

Of voor oudere versies dan office 365

=$A$2+RIJ(INDIRECT("1:"&$B$2-$A$2))-1