Löschen der letzten Zeichen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Löschen der letzten Zeichen
von: Matthias
Geschrieben am: 17.06.2002 - 22:10:05

Hallo,
ich habe unterschiedliche Werte (3 bis 9 stellig)in einer Zelle und möchte die letzten beiden Zeichen davon löschen.
Wie geht das?

Vielen Dank
Matthias


nach oben   nach unten

Re: Löschen der letzten Zeichen
von: Ramses
Geschrieben am: 17.06.2002 - 22:25:01

Hallo Mathias,

füge diesen Code in Modul deiner Arbeitsmappe ein.
Markiere den Bereich, wo du die Zeichen löschen willst und dann rufst du das Makro auf:


Sub Delete_2_Characters()
Dim As Excel.Range
For Each c In Selection
    If Len(c) > 2 Then
        c.Value = Left(c.Value, Len(c.Value) - 2)
    End If
Next c
End Sub

Es werden nur Zellinhalte die länger als 2 Zeichen sind bearbeitet.

Gruss Rainer

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Löschen der letzten Zeichen"