Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

letzter Bearbeiter und Datum

letzter Bearbeiter und Datum
Jay
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: letzter Bearbeiter und Datum
01.10.2010 19:22:47
Josef

Hallo Jay,
in des Klassenmodul der entsprechenden Tabelle.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo ErrExit
  Application.EnableEvents = False
  
  With Target
    Cells(.Row, 49) = Date
    Cells(.Row, 50) = Environ$("USERNAME")
  End With
  
  ErrExit:
  Application.EnableEvents = True
End Sub

Gruß Sepp

Anzeige
AW: letzter Bearbeiter und Datum
05.10.2010 16:15:58
Jay
Perfekt!
Vielen Dank an Dich!
Gruß
Jay

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige