Maximale Zeichen Anzahl in Zelle
20.06.2017 10:07:12
Carsten
habe mir mal fogendes gebastelt:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next 'fürs Entfernen
If Len(Target.Cells) > 15 Then Application.SendKeys ("{TAB}")
End Sub
Habe jetzt im Worksheet_Change gearbeitet aber solange ich nicht die Eingabe durch Klick enter oder so bestätige ändert sich das Sheet ja noch nicht eigentlich.
Danke schonmal :)
Anzeige