Wenn Spalte ändert dann setzte Datum
28.04.2018 16:26:33
Harry
Ich bin zum glück mal auf dieses gute Forum gestossen und habe natürlich auch gleich eine Frage:
In meinem Excelsheet möchte ich das, wenn sich im Bereich F11 bis AA500 etwas ändert, genau in dieser Spalte auf der zweiten Zeile das Datum eingetragen wird plus in der Dritten Zeile wer es geändert hat.
Zur Zeit überwache ich die wie folgt:
Private Sub Worksheet_Change(ByVal Target As Range)
SpalteF:
If Intersect(Target, Range("F11:F500")) Is Nothing Then GoTo SpalteG
Range("F2") = Date
Range("F3") = Environ("Username")
SpalteG:
If Intersect(Target, Range("G11:G500")) Is Nothing Then GoTo SpalteH
Range("G2") = Date
Range("G3") = Environ("Username")
SpalteH:
usw. usw...
End Sub
Natürlich funktioneirt dies, aber irgendwie geht das sicher auch ein bisschen hübscher und schneller, oder? Bin über jeden Tipp glücklich und dankbar.
Gruss
Harry