CnC Foren - Einzelnen Beitrag anzeigen - Wort im Excel nach einer bestimmten Stellenzahl abhacken

***Sven*** · #4 21-07-2005, 14:39

VBA:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Characters.Count > 13 Then
    string_cell = Left(ActiveCell.Value, 13)
    ActiveCell.Value = string_cell
End If

Das aber nur als Denkansatz, es kürzt den Inhalt der aktiven Zelle auf 13 Zeichen wenn sich die Zellauswahl ändert.

End Sub