hätte da mal wieder ein kleines Problem.
Ich würde gerne mehrere Spalten auf eine bestimmte Anzahl von Zeichen beschränken.
Das ganze über Gültigkeit zu machen geht leider nicht, da diese Formatierung sobald man kopiert aus anderen Tabellen flöten geht.
Habe es eigentlich schon geschafft nur das ich gerne beim kürzen eine Message Box ausgeben würde das die Zeichen zu viel waren und deshalb eingekürzt wurde.
Anbei mal meine Version:
Hierbei hängt sich allerdings Excel auf!
Wenn ich den Befehl mit der Message Box raus nehme funktionier es ohne Probleme. Wo ist den mein Fehler?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Columns("L"), Target) Is Nothing Then
Const A = 30
Target.Value = Left(Target.Value, A)
MsgBox "Text darf nur 30 Zeichen lang sein!"
End If
If Not Intersect(Columns("N"), Target) Is Nothing Then
Const B = 30
Target.Value = Left(Target.Value, B)
End If
If Not Intersect(Columns("P"), Target) Is Nothing Then
Const C = 12
Target.Value = Left(Target.Value, C)
End If
If Not Intersect(Columns("AH"), Target) Is Nothing Then
Const D = 7
Target.Value = Left(Target.Value, D)
End If
End Sub
Über rasche Hilfe wäre ich sehr dankbar.
MfG.: Hans Huerbel