Variabele range definieren

[Oude leerling]

Geacht forum,

Ik heb een rij met getallen .
Deze rij kan van lengte variëren.
bv.

rij = Range("E5:P5")

Nu is "P" variabel en afhankelijk van wat de laatst gevulde cel van die rij 5 is.

Kunt u mij helpen hoe ik de range "rij" nu moet definiëren?

Vriendelijke groet , Jaap

 

[JanBG]

Jaap,

Je zult het iets meer moeten toelichten: want in rij 5 staat helemaal niets, maar je bedoelt waarschijnlijk rij 4 en wat betekent dat P variabel is?

 

[VenA]

Er staat geen code in jouw bestand. De gegevens staan in rij 4.

Sub VenA()
  MsgBox Cells(4, Columns.Count).End(xlToLeft).Column
End Sub

of

Sub VenA()
  MsgBox Cells(4, Columns.Count).End(xlToLeft).Column
  MsgBox Range("E4").Resize(, Cells(4, Columns.Count).End(xlToLeft).Column - Range("E4").Column + 1).Address
  MsgBox Range("E4").CurrentRegion.Address
End Sub

 

[Oude leerling]

JanBG,

Range("E5:P5")

moet natuurlijk

Range("E4:P4")

zijn

Kolom "P" is de kolom van de laatste gevulde cel in die rij 4. dus de variabele

VenA,

Hoe ziet de code er dan uit ?
Ik moet dus op de plaats van "P" die variabele zien te krijgen

rij = Range("E4:???4")

 

[VenA]

Staat in #3

 

[JanBG]

Jaap,

Ik snap eerlijk gezegd nog steeds niet waar je naar zoekt. Kun je uitleggen wat het resultaat moet zijn?

PS: en als ik naar je #4 kijk denk ik dat je een kringverwijzing krijgt

 

[Oude leerling]

VenA ,

Ik heb er onderstaande van gemaakt , maar werkt niet.

[rij = Range("E4").Resize(, Cells(4, Columns.Count).End(xlToLeft).Column - Range("E4").Column + 1).Address
        Debug.Print rij(1, 8)

 

[VenA]

Wat wil je dan in elkaar knutselen? Je geeft totaal geen informatie. Alleen een paar getallen in een verkeerde rij? Zie ook de reacties van @JanBG waar je blijkbaar niet op wilt reageren.

 

[HSV]

dim rij as variant
rij = Range("E4", Cells(4, Columns.Count).End(xlToLeft))
        Debug.Print rij(1, 8)

 

[Oude leerling]

JanBG en VenA,

Sorry dat ik zo onduidelijk was.
Ik wilde gewoon informatie uit een rij halen waarvan de lengte willekeurig is.
Zal voortaan wat meer info geven.

HSV, ja dat bedoelde ik.

Alle bedankt voor de geboden hulp.

Vriendelijke groet Jaap