Gruppe
Ereignis
Problem
Im Bereich A1:D88 dürfen nur 32 Zellen mit Werten belegt werden. Wird versucht, einen 33. Wert einzugeben, darf dieser nicht übernommen werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:D88")) Is Nothing Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
If WorksheetFunction.CountA(Range("A1:D88")) > 32 Then
MsgBox "Nur 33 Eingaben erlaubt!"
Target.ClearContents
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub