Opgelost offset gebruiken om datum weer te geven

[gGerretje]

Beste helpers,

Ik wil een datum weergeven in een msgbox.
De datum staat in C2 en A1 is geselecteerd (is maar een voorbeeld)

ik dacht aan iets als:

waarde = Offset (activeCell, 1,2).value

maar helaas ....
Ik wil graag die waarde lezen uit C2 en met een macro weergeven in een msgbox.

Alvast dank voor jullie hulp.

Groeten,|
Ger

 

[AD1957]

dat wordt dan zoiets.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then MsgBox ActiveCell.Offset(1, 2)
End Sub

 

[emields]

Aangezien een voorbeeldbestandje maken voor u te moeilijk is heb ik het zelf maar gedaan.

 

[gGerretje]

Dat is helemaal wat ik bedoelde Albert.

Bedankt voor je reactie.

Groeten,
Ger

 

[gGerretje]

Hallo Emields,

Zo'n voorbeeldbestand zou niet echt moeilijk te maken zijn, maar het leek mij nogal overbodig om een voorbeeldbestandje bij te voegen met alleen een datum in C3.
Ik onderschrijf het belang van een voorbeeldbestand en voeg dat ook altijd toe, maar we kunnen ook overdrijven, niet?

Maar uiteraard wel bedankt voor je reactie.
In het genoemde voorbeeld werkt de code prima.
Maar omdat mijn datumcel en geselecteerde cel altijd anders kan ik geen vaste celnaam gebruiken in mijn code.
Maar ik kan verder met de code van Albert.

Voor iedereen een fijne jaarwisseling en de beste wensen voor 2024.

Groeten,
Ger