Nur 2 Tabellen Protokollieren
03.09.2020 06:36:48
Holger
ich habe folgenden Code hier im Forum gefunden, diesen kann ich gut gebrauchen.
Das Problem es werden von allen Blättern die Änderungen Protokolliert.
Ich möchte aber nur, das 2 Tabellen Protokolliert werden.
Leider reichen meine VBA Kenntnisse dafür nicht.
Deshalb meine Bitte das mir einer sagt wie ich das hin bekomme.
Vielen Dank
Option Explicit
Dim LoLetzte As Long
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
With Worksheets("Tabelle3")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
_
_
Rows.Count) + 1
.Cells(LoLetzte, 1) = Target.Address
.Cells(LoLetzte, 2) = Target
.Cells(LoLetzte, 3) = Sh.Name
.Cells(LoLetzte, 4) = Environ("Username")
.Cells(LoLetzte, 5) = Date
.Cells(LoLetzte, 6) = Time
End With
Application.EnableEvents = True
End Sub
Anzeige