Tekstin poistaminen solusta ja nollan lisääminen

Ensinnäkin kun tuot tiedot Exceliin käytä tuontivelhoa apuna ja määritä kaikki kentät tekstiksi, jolloin etunollatkin säilyvät.
Allaolevalla koodilla putsaat tekstit pois. Valitse solut mitkä haluat putsata ja suorita makro.
Jos tuotava tiedoston rakenne on aina sama, niin makrollahan sen voi sitten tehdä kertalaakista, mutta antamallasi tiedoilla en voi enempää auttaa ;-)

tavalliseen moduuliin...

Sub Putsaa()
Dim solu As Range
With CreateObject("VBScript.Regexp")
.Global = True
.Pattern = "\D "
For Each solu In Selection
solu.Value = .Replace(solu.Value, "")
Next
End With
End Sub

Keep EXCELing
@Kunde

Yksi tapa on käyttää funktiota. Tuota vähän viilaamalla saisi lisäominaisuuksiakin, esim. ensimmäisen -merkin voisi sallia, jos kirjoitettu puhelinnumero on kansainvälisessä muodossa tjsp.

Tätä funktiota käytetään siis näin:
=Poistamerkit("å1 ä2=ö3")
joka palauttaa: 123


Function Poistamerkit(merkkijono As String) As String
Dim paluujono As String
Dim i As Integer

paluujono = ""

For i = 1 To Len(merkkijono)
If Mid(merkkijono, i, 1) >= "0" And Mid(merkkijono, i, 1) <= "9" Then
paluujono = paluujono Mid(merkkijono, i, 1)
End If
Next
Poistamerkit = paluujono
End Function

Kiitos, mahtavaa apua olen saanut taas! Kunden Makroa voisin käyttää, kun ei tule siis minun käyttöön vaan toiselle henkilölle jota autan tämän toteuttamisessa. Tuotavan tiedoston rakenne on aina sama, eli voisi ilman tuota sarakevalintaa toteuttaa, mutta apua, miten? On kyllä ressi kun ei näinkään pientä juttua osaa itse toteuttaa... no jospa sitä tässä oppii kokoajan :)