für jeden lösungsansatz währe ich euch sehr dankbar
gruß alex
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s$
If Target.Column = 1 Then
If Len(Target.Value) > 35 Then
s = Target.Value
Target.Value = Left(Target.Value, 35)
MsgBox s
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s$
If Target.Column = 1 Then
If Len(Target.Value) > 35 Then
s = Target.Value
Target.Value = Left(Target.Value, 35)
MsgBox s
End If
End If
End Sub