[Seidl]

Seht euch doch mal VB ein wenig an.
Ist viel leichter als die meisten anscheinend glauben und Makros sind ja doch öfters hilfreich.

Leider habe ich diesen Beitrag zu spät gelesen um helfen zu können aber hier trotzdem ein Makro welches das Problem hätte lösen können.

Sub Makro1()
Dim X As Integer
For X = 1 To 1000 ' Zeile 1 bis 1000
With Worksheets(1).Cells(X, 1) ' 1.Blatt, 1.Spalte, X.Zeile
If Len(.Value) > 6 Then ' mehr als 6 Zeichen
.Value = Right(.Value, 6) ' 6 Zeichen von rechts
End If
End With
Next X
End Sub

Wie gesagt, ist gar nicht so schwer wie manche vielleicht denken.

so long
Seidl