Als je verschillende getalnotaties door elkaar wilt gebruiken, afhankelijk van de invoer, dan zal je genoodzaakt zijn om met een dergelijke event-macro te werken:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Select Case Left(Target, 1)
Case 2, 3, 4, 9
Target.NumberFormat = "00 000\.00\.00"
Case 1, 5, 6, 7, 8
Target.NumberFormat = "000 00\.00\.00"
Case Else
Target.NumberFormat = "General"
End Select
End If
End Sub
kopieer de macro naar de
werkbladcodeLet wel op: deze code werkt enkel voor vaste nummers, niet voor GSM.