16. december 2008 - 11:14Der er
2 kommentarer og 1 løsning
Input box med tal
Jeg skal lave en input box som man kun må skrive tal i, men jeg er tvunget til at kalde den for : Dim navn As String, istedet for Integer, fordi så virker Cancel knappen ikke.
Er der en løsning så man kun kan skrive tal og så cancel knappen også virker?
Har fundet frem til følgende:
Private Sub CommandButton1_Click() Dim navn As String navn = InputBox("Angiv en stykafgift", "Stykafgift hos producenten") If vbOK Then Range("C6").Value = navn
Private Sub CommandButton1_Click() Dim navn As String, NR As Variant, I As Integer navn = InputBox("Angiv en stykafgift", "Stykafgift hos producenten") If vbOK Then For I = 1 To Len(navn) If IsNumeric(Mid(navn, I, 1)) Then NR = NR & Mid(navn, I, 1) End If Next Range("C6").Value = NR End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
