Absolute / Relatieve positie

[Abco_B]

Onderstaande makro vult in kolom B en C van de actieve rij datum en tijd in.

Ik vind deze makro voor anderen niet zo duidelijk omdat de cel (waar de tijd wordt ingevoerd) bepaald wordt door de positie tov van de actieve cel.

Hoe kan ik ongeacht van waar de actieve cel zich bevindt een waarde in kolom c invoeren van de actieve rij ?

Abco




Sub Datum_tijd_invullen()

Selection.End(xlToLeft).Select

ActiveCell.Range("B1").Select
Datum

ActiveCell.Range("B1").Select
ActiveCell.FormulaR1C1 = Time

End Sub

 

[Wigi]

Jouw macro zou beter zo opgemaakt worden:

Sub Datum_tijd_invullen()
Selection.End(xlToLeft).Range("B1") = Date
Selection.End(xlToLeft).Range("C1") = Time
End Sub

Wat betreft het relatieve aspect:

Sub Datum_tijd_invullen()
Range("B" & Activecell.Row) = Date
Range("C" & Activecell.Row) = Time
End Sub

Wigi

 

[Abco_B]

Wigi,

Dank voor je reactie !

Abco