mit einem
Private Sub (selection change) möchte ich in einem definierten Bereich, den usernamen ü _
bernehmen, falls eine Änderung vorgenommen wurde.
Den Bereich habe ich wie folgt definiert:
Set bereich=Range(Cells(startzeile,startspalte), Cells(Endzeile, Endspalte))
If Not Intersect(Target, bereich) is Nothing then
Cells(Target.Row, spalteUsername).Value = Environ("Username")
End If
End Sub
Bei jedem Anklicken im definierten Zellbereich wird der Username eingetragen. Es soll jedoch nur bei einer Änderung eines Zellinhaltes erfolgen. Wie müsste ich die Definition ändern?
Wer hätte einen Tip für mich?
Vielen Dank und Grüße,
Constantin