toevoegen cijfers bij voorwaarde ALS

[cyberjoep]

Ik ben op zoek naar een macro/procedure die het volgende kan:

Ik heb veel cellen waarin telefoonnummers staan met diverse lengtes.
Nu wil ik als het getal een lengte heeft van 9 cijfers automatisch 31 laten toevoegen.
Bij alle andere lengtes moet er niets gebeuren.

Wie helpt me.

Alvast bedankt.

 

[gabber1]

na wat makkelijk google en wat verandering ben ik op het volgende gekomen.

aantalcijfers = Str$(Len(telefoonnummer))
if aantalcijfers = 9 Then
telefoonnumer = "31" + telefoonnummer
Else
End If

je moet natuurlijk wel even de variabele verandere met jouw programa!

MVG,
gabber1

 

[cyberjoep]

Beste Gabber1.

de formule werkt niet.
Ik doe waarschijnlijk iets fout.
Al mijn telefoonnummers (als getal) staan in kolom A.

Sub telefoonnummers()
Columns("A:A").Select
aantalcijfers = Str$(Len(telefoonnummer))
If aantalcijfers = 9 Then
telefoonnumer = "31" + telefoonnummer
Else
End If
End Sub

Wat doe ik fout??

 

[gabber1]

Ik kan het foutje niet vinden. Ik heb wel even een programmaatjes gemaakt dat je kan helpen om dit optelossen.
Het zou mischien wat handiger zijn als het programma upload met neppe telefoon nummers![/B}

MVG,
Gabber1
Bekijk bijlage nummer.zip

 

[That Guy]

Het gaat hier om een VBA vraag neem ik aan?

In ieder geval, kijk eerst eens wat je Colums.select geeft.

Sub telefoonnummers()
msgbox(Columns("A:A").Select);

dit geeft waarschijnlijk een array oid. In ieder geval, de code van gabber1 klopt wel, maar niet op deze manier. Zie dit:

function CheckTel(telnummer)
If len(str(telnummer)) = 9 Then
   CheckTel = "31" & telnummer
Else
   CheckTel = telnummer
End If
End function


Sub telefoonnummers()
   dim cols
   dim result

   cols = Columns("A:A").Select
   'kijk eens wat het zegt?
   msgbox cols
   'als het 1 iets geeft, probeer dit:
   result = CheckTel(cols)

   'kijk wat de uitkomst is
   msgbox result
end sub

:thumb:

 

[cyberjoep]

Bedankt allen !!

:thumb::thumb::thumb::thumb:Thanks,

Heb hem werkend gekregen .