Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Warnung, wenn Wert bereits vorhanden

Gruppe

Change

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