na iedere verplaatsing van de cursor de rij en kolom tonen

[Johan1981]

Beste Allemaal,

Ik wil graag per tabbad de actuele rij en kolom tonen. Dit lukt prima met een eenvoudige code:

Sub cursorpositie()
Cells(4, 1) = ActiveCell.Cells.Row
Cells(5, 1) = ActiveCell.Cells.Column
End Sub

Maar ik wil dit na iedere verandering van de cursor (dus met de pijltjes toetsen of een klik met de muis) en per tabblad.
Ik heb 4 tabbladen: 2018 2019 2020 en instellingen. Bij de jaartallen wel maar bij instellingen (liever) niet.

De meeste antwoorden en vragen gaan over het verplaatsen van de cursor ipv bovenstaande.

Johan,

 

[HSV]

In Thisworkbook.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
if lcase(Sh.Name) <> "instellingen" Then
  Cells(4, 1) = Target.Row
  Cells(5, 1) = Target.Column
End If
End Sub

Of:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 If lcase(Sh.Name) <> "instellingen" Then Cells(4, 1).Resize(2) = Application.Transpose(Array(Target.Row, Target.Column))
End Sub

 

[Johan1981]

Harry,

Veel dank. Ik was hier zelf absoluut niet opgekomen.

Johan.