Public Sub löscht_letztes_zeichen()
Dim c As Range
For Each c In Selection
'''If c <> "" Then
If c <> "" And IsNumeric(c) = False Then
c = Left(c, Len(c) - 1)
End If
Next c
End Sub
Es soll nur das letzte Zeichen gelöscht werden wenn es ein Symbol (konsolidierto)
Wie kann man den Code verbessern so das er auch keine Buchstaben löscht sondern nur Symbole?
Danke!!