ich möchte gerne bei einigen markierten Zellen jeweils die letzten 2 Zeichen löschen.
Es handelt sich um hunderte von Zellen in verschiedenen Spalten, also das
von Hand zu machen wäre ne menge Arbeit.
Hätte da jemand eine Lösung ?
Gruß
FR
Sub ungetestet()
dim zelle as range
for each zelle in selection
zelle=left(zelle,len(Zelle)-2)
next
End Sub
Sub löschen()
Dim s As Range
For Each s In Selection
s = Left(s.Text, Len(s.Text) - 2)
Next
End Sub