Office: Fixierter Namensstempel

Hi Leute,

kann man das fix machen:

If Not Intersect(Range("F2:F39"), Target) Is Nothing Then Target.Offset(40, 2) = Environ("Username")

so wie

If Not Intersect(Range("F2:F39"), Target) Is Nothing Then Target.Offset(40, 2) = Now

hier bleibt der Timestap ja bestehen wenn man eine andere Zelle in der Range verändert - bei Environ("Username") wird aber sobald etwas in der Range verändert wird der überall der User geändert im Dokument

 

*push* jmd eine Idee?

 

das glaube ich nicht das alle User geändert werden. Lade mal die Datei hoch.

 

Hallo,

es ist leider etwas dürftig, was da an VBA-Codezeilen angeboten wird. Es sind auch keine Deklarationen enthalten, sodass man wirklich präzise wüsste, was das für Variablen/Funktionen sind.

Da die INTERSECT-Funktion verwendet wird (falls es die aus dem Excel-Application-Objekt ist), kann man daraus schließen, dass offenbar die Variable 'Target' ein Range-Objekt ist:
Unter dieser Voraussetzung wird, wenn sich die beiden Zellbereiche F2:F39 und Target in mindestens 1 Zelle überlappen, der Zelle, die sich 40 Zeilen unterhalb und 2 Spalten rechts von 'Target' befindet, entweder der Wert der Umgebungsvariablen 'Username' oder aber der momentane Wert der Systemuhr zugewiesen.

Vom Wortlaut kann man nur vermuten, dass das 2 Zeilen aus einer(zwei) Event-Handler-Prozedur(en) sind. Man müsste halt wissen, falls diese Vermutung richtig ist, um welche Events von welchen Objekten es sich handelt.

Warum der Timestamp unverändert bleiben soll im Gegensatz zur Environment-Variablen, bleibt auch völlig im Dunklen.

 

Hat sich erledigt,

funktioniert jetzt.

Das mit dem Überlappen hab ich auch festgestellt. Ist geändert.

Warum es alle Zellen geändert hatte hab ich keine Ahnung - war wohl ein Bug...

funktionierender Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E2:E29"), Target) Is Nothing Then Target.Offset(40, 0) = Now
If Not Intersect(Range("F2:F39"), Target) Is Nothing Then Target.Offset(40, 1) = Now
If Not Intersect(Range("E2:E29"), Target) Is Nothing Then Target.Offset(40, 1) = Environ("Username")
If Not Intersect(Range("F2:F39"), Target) Is Nothing Then Target.Offset(40, 2) = Environ("Username")
End Sub