Target.Row
16.12.2020 12:45:13
Thomas
ich möchte gern Änderungen in einem Bereich überwachen.
Dazu habe ich folgenden Ansatz.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const MyRng = "a2:zz100" ' Dieser Bereich wird auf Änderungen geprüft
If Intersect(Target, Me.Range(MyRng)) Is Nothing Then Exit Sub
MsgBox "Diese Zelle in Zeile: " & Target.Row & " und Spalte: " & Target.Column & " wurde geä _
_
ndert."
MsgBox "Dieser Wert wurde neu eingetragen: " & Target.Value
End Sub
Leider springt das Macro schon an wenn man in eine Zelle dieses Bereich klickt.
mfg Thomas
Anzeige