Microsoft Excel

Herbers Excel/VBA-Archiv

Nur 2 Tabellen Protokollieren

Betrifft: Nur 2 Tabellen Protokollieren von: Holger
Geschrieben am: 03.09.2020 06:36:48

Hallo und guten Morgen,


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

Betrifft: dann eben das hier doppelt ...
von: Pierre
Geschrieben am: 03.09.2020 09:46:15

Obendrüber konnte geholfen werden ;-)

Beiträge aus dem Excel-Forum zum Thema "Nur 2 Tabellen Protokollieren"