Goedeavond,
Kan iemand mij helpen een Programmacode aan te passen?
Doel: de gebruiker mag in cellen A1 & B1 alleen cijfers invoeren, dus geen punt en komma. Alleen: 0123456789
Deze cellen zijn opgemaakt als tekst, zodat bijvoorbeeld de invoer '050' ook mogelijk is.
De programmacode werkt naar behoren, behalve dat punt en komma geaccepteerd wordt.
Er mogen alléén cijfers ingevoerd worden, in een cel die is opgemaakt als Tekst.
Niet noodzakelijk, maar zou wel cool zijn als dit ook kan:
De foutmeldingtekst (MsgBox) komt in beeld nadat er op [ENTER] is gedrukt.
Als je als gebruiker foutieve invoer hebt gegeven, je drukt op [ENTER], leest de pop-up tekstbox, dan zou het fijn zijn als het veld waar de verkeerde invoer was geplaatst weer geselecteerd wordt zodat de gebruiker een nieuwe kans op correcte invoer krijgt.
Kan dat? Hoe ziet de code er uit: "selecteer de cel die de foutcode genereerde" ?
Een code met Rij-1 werkt niet altijd, dat werkt denk ik alleen als iemand de celinvoer afsloot met [ENTER]. Als iemand de celinvoer 'afsluit' door met een muisclick op een heel andere plek in het document te klikken of zelfs op een ander tab-blad te klikken werkt iets met Rij -1 niet.
Kan iemand mij laten zien hoe deze code aangepast kan worden zodat het werkt zoals ik wil?
Kan iemand mij helpen een Programmacode aan te passen?
Doel: de gebruiker mag in cellen A1 & B1 alleen cijfers invoeren, dus geen punt en komma. Alleen: 0123456789
Deze cellen zijn opgemaakt als tekst, zodat bijvoorbeeld de invoer '050' ook mogelijk is.
De programmacode werkt naar behoren, behalve dat punt en komma geaccepteerd wordt.
Er mogen alléén cijfers ingevoerd worden, in een cel die is opgemaakt als Tekst.
Niet noodzakelijk, maar zou wel cool zijn als dit ook kan:
De foutmeldingtekst (MsgBox) komt in beeld nadat er op [ENTER] is gedrukt.
Als je als gebruiker foutieve invoer hebt gegeven, je drukt op [ENTER], leest de pop-up tekstbox, dan zou het fijn zijn als het veld waar de verkeerde invoer was geplaatst weer geselecteerd wordt zodat de gebruiker een nieuwe kans op correcte invoer krijgt.
Kan dat? Hoe ziet de code er uit: "selecteer de cel die de foutcode genereerde" ?
Een code met Rij-1 werkt niet altijd, dat werkt denk ik alleen als iemand de celinvoer afsloot met [ENTER]. Als iemand de celinvoer 'afsluit' door met een muisclick op een heel andere plek in het document te klikken of zelfs op een ander tab-blad te klikken werkt iets met Rij -1 niet.
Kan iemand mij laten zien hoe deze code aangepast kan worden zodat het werkt zoals ik wil?
Code:
Dim lOldVal As Long 'Sheet Module level variable
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
If Not IsNumeric(Target.Value) Then
MsgBox "Vul alleen getallen in. Voorbeeld: €1,95 voer je in als 195", vbInformation, ""
Application.EnableEvents = False
Target.Value = lOldVal
Application.EnableEvents = True
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
lOldVal = Target.Value
End If
End Sub
Bijlagen
Laatst bewerkt: