VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Warnung, wenn Wert bereits vorhanden

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

    


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