Validering af tekstbox i VBA

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Left(TextBox1.Text, 2) = "P-" Then
MsgBox "Der er P- i starten"
Else
MsgBox "Der er IKKE P- i starten"
End If
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
If Left(TextBox1.Text, 2) = "P-" Then
MsgBox "Der er P- i starten"
Else
MsgBox "Der er IKKE P- i starten"
End If
End If

End Sub

Det var lige præcis hvad jeg havde brug for, nu virker det. Mange tak for det

du får et svar ;-))

hvordan giver jeg point til kabbak

tak jeg har fået ;-))