Toggle Button
01.11.2017 11:54:53
Tommy
Ich würde gern dieses Code via Toggle Button aktivieren und deaktivieren.
Kann mir jemand sagen, wie der Code dazu aussieht?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Object, objChange As Range
On Error Resume Next
Set objChange = Intersect(Target, Me.UsedRange)
On Error GoTo 0
If Not objChange Is Nothing Then
For Each objRange In objChange
If objRange = "" Then
Call addComment(objRange, Now, Environ("USERNAME"), "Daten geloescht!")
'oder
'Call addComment(objRange, , , , True)
Else
Call addComment(objRange, Now, Environ("USERNAME"), "Daten eingetragen!")
End If
Next
End If
End Sub