Sammenlign værdi i tekstboks med væerdi i celle

If val(Me.Textbox1) = val(ActiveCell) Then

en tekstboks er altid tekst, husk hvis du bruger decimal, så skal den være med punktum, ikke komma.

Forklar lige det med punktum contra komma og hvordan sikrer jeg, det kun er tal, der indtastes i tekstboksen?

sæt denne kode ind, den ordner det.

Ret selv til dine tekstbokse

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 44 Then
KeyAscii = 46 ' laver komma om til punktum
Exit Sub
End If

'48 til 57 er tal, 46 er punktum, 44 er komma
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = Empty ' tal ok alt andet slettes

End Sub

Forstår det ikke helt:

1. indtastningen skal være tal og uden decimal
2. komma og /eller punktum - hvor skal de stå?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

'48 til 57 er tal, 46 er punktum, 44 er komma
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = Empty ' tal ok alt andet slettes

End Sub

Ok hvis det er heltal, så virker dette,

din tekstboks, er den i arket eller i en userform ?
I en userform skal koden ind i userformens modul, hvis den er på et ark, skal den ind i arkets modul.

du får det frem ved gå i design mode og så højreklikke på tekstboksen og vælg vis programkode.

Virker fint - tak for hjælpen.
Lægger du et svar?

;-))