Gruppe
Ereignis
Bereich
Change
Thema
Beschränkung der Eingabemöglichkeit auf 32 Zellen
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.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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