ich möchte gern alle Änderungen im Arbeitsblatt protokollieren.
Das unten stehende Macro macht das schon ganz gut. Nun wird aber in den Tabellen-blättern auch sortiert. Somit verliere ich die Zuordnung von Target.Address zum dazugehörigen Datensatz. Ich habe in der ersten Spalte ( A) die jeweilige Datensatznummer.
Deshalb versuche ich gerade den Wert aus Spalte A ins Protokoll zu bekommen.
Kann mir jemand dabei helfen? Irgendwie funktioniert das nicht was ich ausgebrütet habe.
Habt schon mal recht vielen dank für euer Interesse-
MFG Thomas
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim lngZeile As Long Dim spalte Dim zeile Dim wert Application.EnableEvents = False With Worksheets("Tabelle2") lngZeile = .Range("A65536").End(xlUp).Row + 1 ' dies ist mein versuch .Cells(lngZeile, 1).Value = Target.Column .Cells(lngZeile, 2).Value = Target.Row spalte = Target.Column zeile = Target.Row wert = Cells(spalte, zeile) .Cells(lngZeile, 3).Value = wert .Cells(lngZeile, 4).Value = Application.UserName 'Benutzer .Cells(lngZeile, 5).Value = Date 'Datum .Cells(lngZeile, 6).Value = Time 'Zeit .Cells(lngZeile, 7).Value = Sh.Name 'Blattname, auf dem geändert wurde .Cells(lngZeile, 8).Value = Target.Address 'Zelle der Änderung .Cells(lngZeile, 9).Value = Target.Value 'neuer Eintrag End With Application.EnableEvents = True End Sub