VBA range definiëren

[brandernl]

Ik heb in rij 1 een reeks datums staan. De gebruiker kiest een datum en start een macro.
Die macro moet wat gaan doen in de kolom van de cel die de gebruiker geselecteerd heeft.

Ik moet eerst de range in die kolom definiëren.
Zo doe ik dat als ik wel de juiste kolom weet.
set myRange = Range(Range("A1"),Range("A1").Offset(100,0)) en dat werk perfect.
Dus dacht ik:
set myRange = Range(Range(ActiveCell),Range(ActiveCell).Offset(100,0))

Dat is niet goed, bij ActiveCell "ziet" VBA de waarde van de geselecteerde cel.

Uw hulp wordt zeer gewaardeerd. (en sorry weinig tijd gehad voor eigen bijdragen aan dit leuke forum)

 

[Tsarevitsj]

Als het altijd om 100 rijen in die kolom gaat kun je het zo proberen;

Dim eerste As Variant
Sub kolom()
eerste = ActiveCell.Address
Range(eerste, "A100").Select
End Sub

 

[brandernl]

Nee, ik weet juist niet in welke kolom "eerste" staat.
Dus waar je nu "A100" zet moet staan ("kolom van eerste"100)

 

[Tsarevitsj]

Dan moet het zo beter gaan;

Dim eerste As Variant
Dim tweede As Variant
Sub kolom()
eerste = ActiveCell.Address
Selection.Offset(100, 0).Range("A1").Select
tweede = ActiveCell.Address
Range(eerste, tweede).Select
End Sub

 

[Tsarevitsj]

Even herstel, maar daar was je toch wel achter gekomen;

Selection.Offset(100, 0).Range("A1").Select

moet worden

Selection.Offset(99, 0).Range("A1").Select

 

[LucB]

Bernard,

Wat je niet weet moet je vragen.
Hier mbv een InputBox.

Zie voorbeeld.

 

[brandernl]

Luc, dat is hem! So simple ........
bedankt

Tsarevitsj,
Sorry ik was niet duidelijk in m'n vraagstelling; ik wilde helemaal niets met kolom A; die had ik alleen genoemd als voorbeeld als het wél werkt

 

[Tsarevitsj]

Hoi Bernard,

Die "A1" achter selection.offset heeft in principe ook niets te maken met kolom A, dit kun je in elke kolom toepassen zodra men een datum heeft gekozen.

 

[brandernl]

OK, ik snap 'em
dank