Office: Letzte Änderung Benutzer anzeigen

Hallo,
ich habe meine Lösung schon fast gefunden, nur benötige ich für folgenden Code eine kleine Abänderung:

PHP:

         Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Target, Range("B2:B100,D3:D100"))
If Not objRange Is Nothing Then
Application.EnableEvents = False
For Each objCell In objRange
objCell.Value = objCell.Value & " " & Environ$("USERNAME") & "," & CStr(Date)
Next
Application.EnableEvents = True
End If
End Sub


:)

 

für diesen Teil
For Each objCell In objRange
objCell.Value = objCell.Value & " " & Environ$("USERNAME") & "," & CStr(Date)
Next
nur
Range("a2")= Environ$("USERNAME") & "," & CStr(Date)

 

Hallo Hajo,
mit Änderung erfolgt der Benutzername+Datum in gewünschter Zelle (A2) aber leider werden die Zellen, der letzten Änderung, nicht farblich hervorgehoben.
Hast eine Idee?

 

benutze den Makrorecorder
Range("a2").interior.color=255

 

hallo,
ich wollte die Zellen die vom letzten Benutzer geändert/verändert worden farblich hervorheben. Nicht die Zelle A2 wo der Benutzer vermerkt wird.

 

Hallo.

meinst Du so ?
Code:

Gruß
Aloys

 

Perfekt!
Vielen Dank Aloys78 - funktioniert einwandfrei*eek.gif*

 

Hallo Aloys78,

auch 1 Jahr später war dein Beitrag super hilfreich *Smilie
Allerdings würde ich den Code gerne erweitern, aber komme absolut nicht weiter.
Bei mir bezieht sich die Range auf A9:R9 und gibt den Benutzername in S9 aus. Wie kann ich es hinbekommen, dass genau dieser Code auch in A10:R10, A11:R11 etc. bis A150:R150 ausgegeben wird und dementsprechend der Benutzername in S10,S11... bis S150 erscheint?

Vielen Dank im Voraus für die Hilfe.


Code:
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Target, Range("A9:R9"))
If Not objRange Is Nothing Then
Application.EnableEvents = False
Range("S9") = Environ$("USERNAME") & "; " & CStr(Date) & "; " & CStr(Time)
'For Each objCell In objRange
' objCell.Value = objCell.Value & " " & Environ$("USERNAME") & ";" & CStr(Date)
'Next
Application.EnableEvents = True
End If

 

Hallo ChriKra,

vielleicht hilft Dir das weiter:
Code:

Gruß
Aloys