eine Frage zur Entfernung von überflüssigen Zeichen in einer Nummer mittels VBA. Eine Nummer sollte in Zelle A1 umgewandelt werden:
Inhalt von Zelle A1: "45 56 7/3-10" sollte zu "45567310"
Vielen Dank für euere Hilfe.
lg Steffen
With Range("A1")
.Value = Replace(.Value, " ","")
.Value = Replace(.Value, "/","")
.Value = Replace(.Value, "-","")
End With
Hilfts?Dim px As Long, qTx$, zTx$, zx As String
…
qTx = Range("A1").Value
For px = 1 To Len(qTx)
zx = Mid(qTx, px, 1)
If IsNumeric(zx) Then zTx = zTx & zx
Next px
Range("A1") = CLng(zTx)
Man kann natürlich ZellFmln/-Fktt in VBA benutzen, ggf auch fertige UDFs, wobei mir als fertige singulare MatrixFml auch noch folgende, etwas exotische Variante eingefallen ist: