In einem Worksheet Change Ereignis habe ich folgenden code stehen:
If Target.Column = 8 Then
If Len(Target.Value) > 50 Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = 0
End If
End If
~f~
Hier wird die Länge eines Textes auf 50 Stellen abgefragt. Sind es mehr als 50 Stellen wird die Zelle rot gefärbt-
Wenn ich jetzt jedoch diese Zelle im Arbeitsblatt lösche bekomme ich die Fehlermeldung Typen unverträglich und ~f~" If Len(Target.Value) > 50 Then" wird geld markiert.
Wie kann ich bitte diese Fehlermeldung umgehen oder beheben.?
Mit On Error Resume Next kommt zwar kein Fehler, dafür wird die leere Zelle rot eingefärbt.
Danke
Josef