Gruppe
Ereignis
Problem
Wie kann ich bei Eingabe eines in einer Spalte bereits vorhandenen Wertes eine Warnmeldung anzeigen lassen?
ClassModule: Tabelle11
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 4 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Columns(4), Target.Value) > 1 Then
If MsgBox("Lieferschein schon eingetragen!" & _
vbLf & "Dennoch eintragen?", _
vbCritical + vbYesNo) = vbNo Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End If
End Sub