Leerwert zuweisen nicht ""
Susi
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
If Target > 5 Then Target.Offset(0, 1) = "" Else Target.Offset(0, 1) = 5
End If
End Sub