Änderungsnachweis plus aktuelles Datum
28.02.2008 14:49:08
alex
hallo leute,
ich habe in der 2. Tabelle meines Arbeitsblattes (hier:"Bearbeitungsnachweis") einen nachweis wer was in Tabelle 1 geändert hat.
kann mir jemand sagen, wie es möglich ist, dass eine Spalte daneben (also in der benachbarten Zelle rechts) noch das aktuelle Datum der änderung erscheint?
Beispiel:
in einer Zelle der Spalte 4 der Tabelle1 wird was geändert, dann erscheint der User in Tabelle2 ("Bearbeitungsnachweis") auch in Spalte 4 in der entsprechenden Zelle. Soweit läufts schon.
Nun brauch ich noch das aktuelle Datum der änderung in die Nachbarzelle.
und noch schlimmer: bei manchen Spalten nicht die benachbarte, sondern eine weiter nach rechts.
hier ist mein Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24
Sheets("Bearbeiternachweis").Unprotect "MeinPasswort"
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName
Sheets("Bearbeiternachweis").Protect "MeinPasswort"
Case Else
End Select
End Sub
grüsse
alex