VBA Userform - kun hele tal i TextBox

4 tegn:
properties (på feltet) - maxlength sættes til 4

Læg denne kode på din tekstbox:

Private Sub TextBox1_Change() '
    If TextBox1 = "" Then Exit Sub
    If TextBox1 - Int(TextBox1) <> 0 Then
        MsgBox "Der må kun indtastes hele tal op til fire tegn"
    End If
    If Len(TextBox1) > 4 Then
        MsgBox "Der må kun indtastes hele tal op til fire tegn"
    End If
End Sub

JKRONS:
Jeg kan ikke få først del af din kode til at virke, den går i fejl:
Runtime-error '13'
Type mismatch

Hvad med:
Private Sub TextBox1_Change()
    If IsNumeric(TextBox1) = False Then
        MsgBox ("Kun tal!")
    End If
    If Len(TextBox1) > 4 Then
        MsgBox "Der må kun indtastes hele tal op til fire tegn"
    End If
End Sub

Det virker ikke helt efter hensigten, da jeg også kan indtaste decimaler.
Jeg anvendte en mere enkelt kode tidligere:

Private Sub TextBox1Change()
    OnlyNumbers
End Sub

Men den accepterer også decimaler.

Så kan du vel egentligt nøjes med denne del af JKRONS kode:

Private Sub TextBox1_Change()
   
    If TextBox1 - Int(TextBox1) <> 0 Then
        MsgBox "Der må kun indtastes hele tal op til fire tegn"
    End If
End Sub

Og så sætte en max længde på 4

som gav fejl ved tekst tegn....bare glem det...

Hvad med denne så...:
Private Sub TextBox1_Change()
    If IsNumeric(TextBox1) = False Then
            MsgBox "Der må kun indtastes hele tal op til fire tegn"
    ElseIf TextBox1 - Int(TextBox1) <> 0 Then
            MsgBox "Der må kun indtastes hele tal op til fire tegn"
    End If
   
End Sub

Hvis du ikke vil bruge maxlength:

Private Sub TextBox1_Change()
   
    If IsNumeric(TextBox1) = False Then
            MsgBox "Der må kun indtastes hele tal op til fire tegn"
    ElseIf Len(TextBox1) > 4 Then
            MsgBox "Der må kun indtastes hele tal op til fire tegn"
    ElseIf TextBox1 - Int(TextBox1) <> 0 Then
            MsgBox "Der må kun indtastes hele tal op til fire tegn"
    End If
   
End Sub

Jeg har valgt at anvende maxlength og koden kl. 13:20.

Men jeg kan stadig indtaste 123.45 - altså decimaler.

Hvis du bruger . (punktum), som decimal tegn, så kan du angive det i dine sprogindstillinger i windows, så vil excel også rette sig efter det og give dig en fejl, ved brug af det.

Problemet er, at mit program, skal anvendes på min arbejdsplads på flere hundrede pc'ere. Derfor er det ikke løsningen her.
Kan man ikke definere, hvilke tegn, der må anvendes - altså tegnene fra 0-9

Du skriver at du tidligere har brugt:
Private Sub TextBox1Change()
    OnlyNumbers
End Sub

Det kan jeg ikke få til at virke...:-(, men fandt denne her (i et tidligere spørgsmål), som du måske kan bruge:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyPressNumbersOnly KeyAscii
End Sub

Jeg kan godt se, at "OnlyNumbers" ikke virker.

Ellers får jeg følgende fejl, når jeg afprøver dit seneste forslag:

Compile Error:
Sub or function not defined

Jeg har yderligere denne defination:

Private Sub OnlyNumbers()
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Sorry, only numbers allowed"
                .Value = vbNullString
            End If
        End With
    End If
End Sub

Så har jeg det til at virke.
Fandt denne kode:

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Else
            KeyAscii = 0
            MsgBox "Du må kun indtaste TAL!", 16, "Fejl"
    End Select
End Sub

stall84: Tak for din input og tålmodighed. Det lykkedes til sidst. Send venligst et svar.

Godt du fandt et rigtigt svar, så du ikke måtte nøjes...