Microsoft Excel

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