Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Prüfung, ob Daten schon vorhanden und Meldung
Gruppe
Change
Problem
Bei Eingaben in Spalte C soll überprüft werden, ob in einer anderen Zeile der gleiche Name mit dem gleichen Datum und der gleichen Uhrzeit vorkommt. Wenn ja, soll eine Meldung ausgegeben werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub If IsEmpty(Target) Then Exit Sub Range("IV1").FormulaArray = "=sum((C1:C5000=""" & _ Target.Value & """)*(A1:A5000=" & _ Target.Offset(0, -2).Address(False, False) & ")*(B1:B5000=" & _ Target.Offset(0, -1).Address(False, False) & ")*1)" If Range("IV1") > 1 Then MsgBox "Sorry, Wert schon vorhanden!" Application.EnableEvents = False On Error GoTo ERRORHANDLER Target.ClearContents End If Range("IV1").ClearContents ERRORHANDLER: Application.EnableEvents = True End Sub