Gruppe
Ereignis
Bereich
Change
Thema
Warnung, wenn Wert bereits vorhanden
Problem
Wie kann ich bei Eingabe eines in einer Spalte bereits vorhandenen Wertes eine Warnmeldung anzeigen lassen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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