VBA Editor: Validering af data i en textbox

Enten kan du selv tilføre formatet:
  "det indtastede" = format("det indtastede", #,00)
eller:

Do While
  format<>(det ønskede format)
  Inputbox "Indtast i format #,00"
Loop

Jeg kan ikke få det til at virke,
Private Sub ø_Change()
Do While
  format<>#,00
  Inputbox "Indtast i format #,00"
Loop
end sub
Lars
(ø er min tekstboks)

Prøv med det her:

Private Sub TextBox1_Change()
  With Me.ActiveControl
    If ((Not IsNumeric(.Value) And .Value <> vbNullString) Or (Right(.Value, 1) = ".")) Then
      If .Value <> "," Then
        MsgBox "Kun tal og ét komma er tilladt i" & vbNewLine & "indtastningen."
        .Value = Left(.Value, Len(.Value) - 1)
      End If
    End If
  End With
End Sub

Den er ikke helt "fejlsikker" idet den giver lidt problemer hvis du indtaster "-" osv. da IsNumeric functionen accepterer et "-", men du kan sikkert se princippet og derudfra kan du evt. checke for "-" etc. manuelt

Hej alle
Tak for imput, jeg er faldet over denne, som jeg ikke kan få til at fejle......heldigvis

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc(",")
                Case Else
            KeyAscii = 0
            MsgBox "Kun tal og komma her", 16, "Stop"
    End Select
End Sub
Smid et svar for point
Lars

Jeg skal ikke have point :)

Lukket