Änderungen erst beim Speichern per VBA protokollieren

Hallo zusammen,
ich habe mit Hilfe des Forums es geschafft Änderungen in der Tabelle "Planung" protokollieren zu lassen. Das funktioniert auch ganz gut. Es gibt nur zwei Probleme für die ich keine Lösung gefunden habe.

Mit dem Code wird jede Änderung protokolliert, also auch wenn man in der Planung "rumprobiert" was am besten passen könnte. Gibt es eine Möglichkeit die Änderungen erst dann zu protokollieren, wenn man die Datei speichert?

Das zweite Problem ist folgendes. Wenn ich den Inhalt von mehreren Zellen gleichzeitig lösche oder in mehrere Zellen gleichzeitig etwas einfüge, wird nur der neue und alte Wert der ersten markierten Zelle protokolliert. Gibt es die Möglichkeit die Änderungen von allen Zellen protokollieren zu lassen? Die geänderten Zellen (Target.Address) wird korrekt angezeigt.

Vielen Dank für eure Hilfe
Mike

Hier mein VBA-Code:
Public AlterWert As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
If Sh.Name > "Planung" Then Exit Sub
If Target.CountLarge > 100 Or IsError(Target) Then Exit Sub
If Intersect(Target, Sh.Range("A1:AF76")) Is Nothing Then Exit Sub
With Sheets("Protokoll")
ErsteFreieZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ErsteFreieZeile, 1) = Date
.Cells(ErsteFreieZeile, 2) = Time
.Cells(ErsteFreieZeile, 3) = AlterWert
.Cells(ErsteFreieZeile, 4) = Target.Value
.Cells(ErsteFreieZeile, 5) = Target.Address(0, 0)
.Cells(ErsteFreieZeile, 6) = Environ("username")
End With
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.CountLarge > 100 Or IsError(Target) Then Exit Sub
If Sh.Name > "Planung" Then Exit Sub
If Not Intersect(Target, Sh.Range("A1:AF76")) Is Nothing Then
AlterWert = Target.Value
End If
End Sub

Hi
Ja ist normal weil jetzt die ganze Protokollierung, die vorher über deine ganze Arbeitszeit verteilt stattgefunden hat, gebündelt beim Speichen stattfindet.

So sollte es schneller gehen:
1. Verwende Variablen, um die Zellen zu anzusprechen, damit du nicht jedesmal über die Adressen gehen musst
2. Schreibe die Protokollwerte erst in ein Array, damit du sie dann als ganzes ins Protokoll schreiben kannst. Jedes Schreiben in eine Zelle erfordert Zeit, die kann man reduzieren wenn man möglichst viele Zellen gemeinsam befüllt.

Private Sub Workbook_Open()

Sheets("Planung").Range("A1:AF76").Copy

Sheets("Sicherung").Range("A1:AF76").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

End Sub

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ZelleS as Range

dim ZelleP as Range

Dim x(1 to 6)



For Each ZelleS In   Worksheets("Sicherung").Range("A1:AF76")

    Set ZelleP= worksheets("Planung").Range(ZelleS.Address)

    If ZelleS.Value > ZelleP.Value Then

        x(1, 1) = Date

        x(1, 2) = Time

        x(1, 3) = ZelleS.Value

        x(1, 4) = ZelleP.Value

        x(1, 5) = Zelle.Address

        x(1, 6) = Environ("username")

        Sheets("Protokoll").Cells(rows.Count, 1).end(xlUp).offset(1, 0).Resize(1, 6).value = x

    End If

Next

End Sub

Wenn das noch nicht ausreicht, Google mal:
GetMoreSpeed

Gruß Daniel

Änderungen erst beim Speichern per VBA protokollieren

Forumthread: Änderungen erst beim Speichern per VBA protokollieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Änderungen erst beim Speichern per VBA protokollieren

Forumthread: Änderungen erst beim Speichern per VBA protokollieren

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

Forumthreads zu verwandten Themen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread