suche Lösung für folgendes, im Bereich D5:D100 dürfen je Zelle nur 40 Zeichen
eingetragen werden wenn Zeichen #40 eingetragen wird aktiviere eine Zelle unterhalb zum weiterschreiben, wenn möglich in VBA
Danke
gruss geri
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Target, Range("D5:D100")) Is Nothing Then
If Len(Target) > 40 Then
Application.EnableEvents = False
Target.Offset(1, 0) = Mid(Target, 41)
Target = Left(Target, 40)
SendKeys "{F2}" 'schaltet sofort wieder in Änderungsmodus
End If
End If
Fehler:
Application.EnableEvents = True
End Sub