• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Telefoon-/GSMnummers weergeven

Status
Niet open voor verdere reacties.

NIh1IlO

Gebruiker
Lid geworden
4 feb 2003
Berichten
750
Beste Excelspecialisten,

Hoe kan men Belgische telefoonnummers (bv. 091234567 met als zonenummer 09) en GSM nummers (bv. 0123456789) die door mekaar worden gebruikt in een kolom van een tabel, laten verschijnen als respectievelijk 09 123 45 67 of 091 23 45 67 en 0123 45 67 89.
Gebeurt dit bij Celeigenschappen Aangepast en hoe? Of moet het nog een andere wijze worden aangepakt?

Met vriendelijke groeten en bedankt al op voorhand voor de te weerhouden aandacht.

NiH1IlO
 
Met celeigenschappen aangepast kan het volgens mij niet. Met een extra kolom kan het wel maar dan moeten de netnummers bekend zijn.
 
onderstaande macro bekijkt de lengte van het telefoonnummer en past de weergave daaraan aan.
Ook de zonenummers worden bekeken: 09 is anders dan 055 enzovoort

je moet maar bekijken of je hier iets mee kan doen.

De code gebruik ik in een userform in excel na invoer van een gsmnummer (zonder spaties of /) in een textbox


Code:
Private Sub Txtgsm_exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Txtgsm.Text) = 3 Then
Txtgsm.Text = Format(Txtgsm.Text, "000")
ElseIf Len(Txtgsm.Text) = 10 Then
Txtgsm.Text = Format(Txtgsm.Text, "0000/00 00 00")
ElseIf Mid(Txtgsm.Text, 2, 2) = 51 Or Mid(Txtgsm.Text, 2, 2) = 55 Or Mid(Txtgsm.Text, 2, 2) = 56 Or Mid(Txtgsm.Text, 2, 2) = 59 Then
Txtgsm.Text = Format(Txtgsm.Text, "000/00 00 00")
Else
Txtgsm.Text = Format(Txtgsm.Text, "00/000 00 00")
End If
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan