Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Formate und Zellinhalte ausblenden

Gruppe

Change

Problem

Im Bereich B2:B6 sollen Formate und Zellinhalte nicht sichtbar sein. Dies gilt auch beim Überschreiben der Zellen.

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("B2:D2")) Is Nothing Then Exit Sub
   On Error GoTo ERRORHANDLER
   Application.ScreenUpdating = True
   Application.EnableEvents = False
   With Range("B2:D2")
      .ClearFormats
      .NumberFormat = ";;;"
   End With
ERRORHANDLER:
   Application.ScreenUpdating = False
   Application.EnableEvents = True
End Sub