Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Beschränkung der Eingabemöglichkeit auf 32 Zellen
Gruppe
Change
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