ich habe im Archiv ein Beispiel gefunden. Damit kann ich alle Änderungen einer Tabelle in eine Protokolltabelle abspeichern.
Wenn ich aber eine Zeile Ändern möchte kommt die Fehlermeldung Laufzeitfehler 13.
Wie kann ich das Verhindern?
Gibt es einen Möglichkeit das man das Macro manuell ein und ausschalten kann?
Gruß
Bongartz
Hier das Beispiel: Private Sub Worksheet_Change(ByVal Target As Range) Private Sub Worksheet_SelectionChange(ByVal Target As Range)Option Explicit
Code eingefügt mit Syntaxhighlighter 1.13
Public varValue As Variant
Public strAddress As String
Public Benutzername As Variant
Public varDatum As Variant
Dim intRow As Integer
If Target.Value <> varValue Then
With Worksheets("Protokoll")
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intRow, 1).Value = strAddress
.Cells(intRow, 2).Value = varValue
.Cells(intRow, 3).Value = Benutzername
.Cells(intRow, 4).Value = varDatum
varValue = CStr(Target.Value)
End With
End If
End Sub
varValue = ActiveCell.Value
strAddress = ActiveCell.Address
Benutzername = Application.UserName
varDatum = Format(Date, "dd.mm.yy") & " / " & Time
End Sub