een oproepje voor de specialisten.....
Ik ben een invuldocument aan 't maken voor registratie van een nieuwe klant.
hierbij zou ik willen dat een telefoonnummer automatisch in het juiste formaat weergegeven wordt. om één of andere reden slaag ik er niet in om dit te laten uitvoeren. bedoeling is dat de vertegenwoordiger een nummer intikt, bv. 012345678, en dit aangepast wordt naar 012/34.56.78, of 021234567 naar 02/123.45.67, en dit bij het verlaten van de cel, zowel voor tel en fax.
Ik vond op het forum reeds 2 stukken code, maar bij het combineren van beide loopt het fout....
van Ingrid B vond ik:
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
en op de MS site vond ik:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A1:C10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Display a message when one of the designated cells has been
' changed.
' Place your code here.
MsgBox "Cell " & Target.Address & " has changed."
End If
End Sub
nu, die msgbox hoeft niet, liefst niet zelfs....
De 2 cellen waar de het nummer ingegeven moet worden zijn B9 en F9
Alle hulp is welkom....
WB