Sub Kuerzen() Dim Textteile As Variant Textteile = Split(ActiveCell.Value, ".") ActiveCell = Trim(Textteile(UBound(Textteile))) End Sub
ActiveCell = LTrim(Mid(ActiveCell, InStr(ActiveCell, ".") + 1))
58.4k Fragen
249k Antworten
7k Nutzer