Eingabe Kürzen
27.05.2009 10:54:17
serge
wer kann mir helfen?
Ich gebe in "eingabe"eine Reihe an Zeichen ein und er soll mir nur die letzten drei davon festhalten!
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("eingabe")) Is Nothing Then
Else
ActiveCell.Offset(0, -1).Range("A1").Select 'Warum bleibt er hier stehen?
Zelle = ActiveCell.Value
ActiveCell.FormulaR1C1 = Right(Zelle, 3)
Exit Sub
End If
End Sub
Anbei meine Datei : https://www.herber.de/bbs/user/62064.xls
Danke Serge
Anzeige