Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1:F5")) Is Nothing Then
Dim Zeichenlaenge As Integer
Zeichenlaenge = 25
If Len(Cells(Target.Row, Target.Column)) > Zeichenlaenge Then
Cells(Target.Row, Target.Column + 1) = Mid(Cells(Target.Row, Target.Column), Zeichenlaenge + 1, Len(Cells(Target.Row, Target.Column)) - Zeichenlaenge)
Cells(Target.Row, Target.Column) = Mid(Cells(Target.Row, Target.Column), 1, Zeichenlaenge)
End If
End If
End Sub
Excelformel anders anzeigen
macema 30.03.2009 - 189 Hits - 2 Antworten
Anzahl Jahr - Formel gesucht
Tomschi 15.04.2009 - 187 Hits - 6 Antworten
Formel gesucht
offi 06.02.2010 - 212 Hits - 4 Antworten
Tipp-SchreiberInnen für das Supportnet gesucht
tonja 12.10.2010 - 252 Hits -