VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Begrenzung der Textlänge über Ereignis-Programmierung

Gruppe

Ereignis

Bereich

Change

Thema

Begrenzung der Textlänge über Ereignis-Programmierung

Problem

In Spalte A soll die Textlänge nach Eingaben auf 35 Zeichen reduziert werden. Lösung über Ereignisprogrammierung.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 1 Then Exit Sub
   On Error GoTo ERRORHANDLER
   If Len(Target.Value) > 35 Then
      Application.EnableEvents = False
      Target.Value = Left(Target.Value, 35)
   End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

    


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