VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beschränkung der Eingabemöglichkeit auf 32 Zellen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change