Excel vba

[sylvester-ponte]

voor die RRN (textbox5) zou je deze kunnen gebruiken.
hij vult zelf de punten en het streepje in terwijl je hem invult.

Private Sub TextBox5_Change()
With TextBox5
  M = "##.##.##-###.##*"
  L = Len(.Text)
  If Not (.Text Like Left(M, L)) Then
    MsgBox ("alleen cijfers gebruiken")
    .Text = Left(.Text, L - 1)
  End If
  If Len(.Text) >= Len(M) - 1 Then
    .Text = Left(.Text, Len(M) - 1)
    Exit Sub
  Else
    temp = Mid(M, L + 1, 1)
    If Not temp = "#" Then
      .Text = .Text & temp
    End If
  End If
End With
End Sub

 

[cova1]

voor die RRN (textbox5) zou je deze kunnen gebruiken.
hij vult zelf de punten en het streepje in terwijl je hem invult.

Private Sub TextBox5_Change()
With TextBox5
  M = "##.##.##-###.##*"
  L = Len(.Text)
  If Not (.Text Like Left(M, L)) Then
    MsgBox ("alleen cijfers gebruiken")
    .Text = Left(.Text, L - 1)
  End If
  If Len(.Text) >= Len(M) - 1 Then
    .Text = Left(.Text, Len(M) - 1)
    Exit Sub
  Else
    temp = Mid(M, L + 1, 1)
    If Not temp = "#" Then
      .Text = .Text & temp
    End If
  End If
End With
End Sub

Werking is super, bedankt
niets voor telefoonnummer en geboortedatum
Grt en dank

 

[sylvester-ponte]

ik heb de code aangepast zodat je ook met backspace letters kunt verwijderen:
je hoeft alleen maar je masker te veranderen in "####/## ## ##*" om hem geschikt te maken voor jouw telefoon.
en maak van "Textbox5" de juiste naam voor je telefoon (in dit geval "Textbox7")

Private Sub TextBox5_Change()
Static P As String
Dim M, L
M = "##.##.##-###.##*"
With TextBox5
  If .Text = "" Then P = "": Exit Sub
  If P = "" Then P = .Text
  L = Len(.Text)
  If Len(P) > L Then 'tekst verwijdert
    P = Left(.Text, L + (Mid(M, L + 1, 1) <> "#"))
    .Text = P
    Exit Sub
  End If
  If Not (.Text Like Left(M, L)) Then 'klopt het niet met het masker?
    MsgBox ("klopt niet met " & M)
    P = Left(.Text, L - 1)
  ElseIf L >= Len(M) - 1 Then  'is de lengte van de tekst groter dan die van masker -1 ?
    P = Left(.Text, Len(M) - 1)
  Else    ' voeg eventueel een . of een - toe
    temp = Mid(M, L + 1, 1)
    P = .Text & IIf(temp = "#", "", temp)
  End If
  .Text = P
End With
End Sub

 

[cova1]

ik heb de code aangepast zodat je ook met backspace letters kunt verwijderen:
je hoeft alleen maar je masker te veranderen in "####/## ## ##*" om hem geschikt te maken voor jouw telefoon.
en maak van "Textbox5" de juiste naam voor je telefoon (in dit geval "Textbox7")

Private Sub TextBox5_Change()
Static P As String
Dim M, L
M = "##.##.##-###.##*"
With TextBox5
  If .Text = "" Then P = "": Exit Sub
  If P = "" Then P = .Text
  L = Len(.Text)
  If Len(P) > L Then 'tekst verwijdert
    P = Left(.Text, L + (Mid(M, L + 1, 1) <> "#"))
    .Text = P
    Exit Sub
  End If
  If Not (.Text Like Left(M, L)) Then 'klopt het niet met het masker?
    MsgBox ("klopt niet met " & M)
    P = Left(.Text, L - 1)
  ElseIf L >= Len(M) - 1 Then  'is de lengte van de tekst groter dan die van masker -1 ?
    P = Left(.Text, Len(M) - 1)
  Else    ' voeg eventueel een . of een - toe
    temp = Mid(M, L + 1, 1)
    P = .Text & IIf(temp = "#", "", temp)
  End If
  .Text = P
End With
End Sub

100% oke prachtig ,kan ik deze ook voor geboortedatum gebruiken?
grt

 

[sylvester-ponte]

gewoon proberen wat je voor telefoon hebt gedaan maar dan met een geboortedatummasker en de juiste tekstboksnaam

 

[cova1]

100% oke prachtig ,kan ik deze ook voor geboortedatum gebruiken?
grt

Prachtig werk van allen.
Bedankt dan ook.

 

[cova1]

Kan ik ook blad leden en niet-leden (sheet1 en 2) beveiligen , zodat deze enkel via subforum(invulformulier) in te vullen zijn?

Iemand oplossing?

IS MIJN VRAAG ONMOGELIJK?
Daar er niemand oplossing bied.
Grt