wer kann das erweitern?
es soll auch wenn in einer Zelle NE5 steht daraus 5 machen.
Selection.Replace What:="U35", Replacement:="35", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
danke
achim h.
Sub ersetzen()
For n = 1 To Len(ActiveCell)
a = Mid(ActiveCell, n, 1)
If IsNumeric(a) = True Then Num = Num & a
Next n
Selection.Replace What:=ActiveCell, Replacement:=Num
End Sub