Office: Excel Protokoll begrenzen

Guten Tag zusammen,

ich habe für ein Excel-Tabellenblatt ein Modul das mir "Protokoll" über Veränderungen führt.

Tabellenblatt1 = Eingabe Formular
Mit folgendem Befehl: ProtokollSchreiben Target

Tabellenblatt2 (tblProtokoll) = Protokoll Blatt

Modul:
Sub ProtokollSchreiben(ByVal Target As Range)
Dim rngP As Range

If Not Target.Parent Is tblProtokoll Then
Set rngP = tblProtokoll.UsedRange 'benutzten Bereich ermitteln, damit die letzte Zeile gefunden wird
Set rngP = rngP.Offset(rngP.Rows.Count) 'um bisherige Zeilenzahl verschieben
Set rngP = rngP.Resize(1) 'auf eine Zeile reduzieren


'jetzt schreibe ich die Informationen hinein:
rngP.Cells(1).Value = Target.Parent.Name
rngP.Cells(2).Value = Target.AddressLocal
rngP.Cells(3).Value = Target.Parent.Cells(Target.Row, 1).Value
rngP.Cells(4).Value = Target.Parent.Cells(Target.Row, 3).Value
rngP.Cells(5).Value = Target.Value
rngP.Cells(6).Value = Now()
End If
End Sub

Sobald ich also in Blatt 1 etwas verändere schreibt es mir ins Blatt2 (ProtokollBlatt) die Veränderungen.


Mein Frage:
Kann ich das auf bestimmte Spalten begrenzen?
Sprich das Makro soll nur ausgeführt werden wenn sich ein Wert in Spalte A oder C ändert?

Danke schonmal

Grüße

Silver

 

Hallo Silver,

du hast uns etwas Entscheidendes unterschlagen, nämlich das Event-Callback-Makro, das auf das Change-Event entweder der Arbeitsmappe oder des Arbeitsblattes "Blatt 1" reagiert.
Es müsste entweder im Codemodul "DieseArbeitsmappe" (bzw. "ThisWorkbook") oder im Codemodul "Blatt1" (bzw. "Tabelle1" bzw. "Sheet 1") enthalten sein.
Genau dieses Makro müsste angepasst werden, damit nur geänderte Target-Ranges, die sich in Spalte A bzw. C von Blatt 1 befinden, protokolliert werden.

 

Danke für die schnelle Antwort,

jop in der Tabelle1 steht:
ProtokollSchreiben Target

 

Hallo,

im Codemodul von Arbeitsblatt "Tabelle1" habe ich das Change-Event-Behandlungsmakro wie folgt geändert:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim SpNr As Long
   SpNr = Target.Column
   If SpNr = 1 Or SpNr = 3 Then
      ProtokollSchreiben Target
   End If
End Sub

d.h. nur wenn in Spalte A bzw. C eine Zellwertänderung eintritt, wird das Protokollmakro ausgeführt.

In alle verwendeten Codemodule habe ich als erste Zeile "Option Explicit" eingefügt.
Geänderte Datei liegt bei.

 

Recht Herzlichen Dank!