letzter Bearbeiter und Datum
Jay
ich hab hier ein kleines Problem bei dem ich auf eure Unterstützung hoffe:
Ich habe eine große Tabelle in der verschiedene Informationen durch verschiedenen Bearbeiter gepflegt werden.
Nun würde ich gerne automatisch die jeweils letzte Änderung (Datum und Bearbeiter) abspeichern lassen.
Mit dem Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Tabelle1
.Cells(7, 49).Value = Date
.Cells(7, 50).Value = Environ$("USERNAME")
End With
End Sub
kann ich zwar die gewünschten Informationen in Spalte AW/AX Zeile 7 anzeigen, jedoch funktioniert auf diesem Wege nicht fortlaufend.
Bearbeiter und Datum sollten also jeweils in der Zeile ausgegeben werden wo auch tatäschlich eine Bearbeitung/Veränderung stattgefunden hat.
Die Ausgabespalten AW = Datum und AX = Bearbeiter bleiben natrülich immer gleich.
Wäre toll wenn jemand eine Idee hat.
Besten Dank im Voraus.
Gruß
Jay Tosh