ich habe eine Liste mit Telefonnummern und möchte aus der Liste alle Schrägstriche entfernen ohne das die führende Null verloren geht. Mit "Ersetzen" geht der Schrägstrich weg aber auch die führende Null.
Danke
Heiko
Sub test()
Dim zelle As Range
For Each zelle In Selection
zelle = "'" & zelle.Text
zelle.Replace What:="/", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub
Sub Testen1()
Dim zelle As Range
For Each zelle In Selection
zelle.NumberFormat = "@"
zelle = Replace(zelle, "/", "")
Next
End Sub