Gruppe
Ereignis
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.
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