Gruppe
Ereignis
Problem
Im Bereich B2:B6 sollen Formate und Zellinhalte nicht sichtbar sein. Dies gilt auch beim Überschreiben der Zellen.
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