Brauche Hilfe bei meinem Code: WorkSheet Change
Holger,
kurz und knackig:
Ich habe einen Code geschrieben zur Worksheet Überwachung.
Mein Ziel: Abfragen, ob ein Zellinhalt gelöscht wird.
Funktioniert leider nicht, da der Code anspringt, sobald man eine Zelle mit
leerem Inhalt auswählt.
Könnt ihr mir bitte helfen?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intLastCell As Integer
Dim blnChange As Boolean
Dim strEmailMsg As String
If blnGodMode = False Then
blnChange = True
End If
If blnChange = True Then
intLastCell = Me.Cells(Me.Rows.Count, 2).End(xlUp).Row
If Not Application.Intersect(Target, Range("B6:R" & intLastCell)) Is Nothing Then
If Target.Value = "" Then
strEmailMsg = "Alert: " & Chr(10) & _
Now() & Chr(10) & _
"Unerlaubter Versuch einer Löschung im Tabellenblatt CONTRACTS: " & _
Target.Address(False, False) & " " & Target.Value & Chr(10) & _
"User: " & Application.UserName
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Call CreateEMail(Range("A1"), False, strEmailMsg)
End If
End If
End If
End Sub