Protokoll

Hallo Excelfreunde,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
als erstes würde ich das Protokoll-Blatt auch so benennen, dann würde ich diesen Code verwenden.
Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
  Dim lngRow As Long 
 
  On Error GoTo ErrorHandler 
 
  If Sh.Name <> "Protokoll" Then 
    Application.EnableEvents = False 
    With Worksheets("Protokoll") 
      lngRow = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row + 1) 
      .Cells(lngRow, 1).Value = Application.UserName 'Benutzer 
      .Cells(lngRow, 2).Value = Date 'Datum 
      .Cells(lngRow, 3).Value = Time 'Zeit 
      .Cells(lngRow, 4).Value = Sh.Name 'Blattname, auf dem geändert wurde 
      .Cells(lngRow, 5).Value = Sh.Cells(1, Target.Column) 'Spalte 
      .Cells(lngRow, 6).Formula = "=HYPERLINK(""[" & ThisWorkbook.Name & "]'" & Sh.Name & "'!A""& MATCH(" & _
        Sh.Cells(Target.Row, 1) & ",'" & Sh.Name & "'!A:A,0)," & Sh.Cells(Target.Row, 1) & ")" 'Datensatznummer 
      .Cells(lngRow, 7).Value = Target.Value 'Neuer Eintrag 
    End With 
  End If 
 
ErrorHandler: 
  Application.EnableEvents = True 
End Sub 
 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

https://www.herber.de/bbs/user/126119.xlsm

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim ErsteFreieZeile As Long Dim AlterWert As Variant, NeuerWert As Variant Dim rngNeuSel As Range If Target.Count > 1 Then Exit Sub If Sh.Name = "Protokoll" Then Exit Sub If Intersect(Target, Sh.Range("A1:Q550")) Is Nothing Then Exit Sub 'Ereignisbehandlung ausschalten: Application.EnableEvents = False 'Zwischenspeichern des neuen Wertes und der neuen Zellmarkierung NeuerWert = Target.Value Set rngNeuSel = Selection 'Rückgängigmachen der letzten Aktion (=Zellwertänderung und Zellmarkierung): Application.Undo '

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H
2	Benutzer	15.12.2018	12:12:54 PM	Tabelle1			Hallo Sepp	#NAME?
3	Benutzer	15.12.2018	12:13:14 PM	Tabelle1			klappt bei mir nicht!	#NAME?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread