Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change