inputboxeingabe

Forumthread: inputboxeingabe
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: inputboxeingabe

inputboxeingabe

12.08.2005 10:44:54

bernd

guten morgen,
ich habe eine inputbox in der der user eine 4-stellige zahl eintippen muss.
nun möchte ich prüfen, ob die eingabe auch 4-stellig ist und ob es sich um eine zahl und nicht um andere zeichen handelt. z.b. buchstaben etc.
kann mir da jemand behilflich sein.
danke im voraus
gruss bernd

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: inputboxeingabe

12.08.2005 11:04:44

Ramses
AW: inputboxeingabe

12.08.2005 11:04:49

Christoph
ich danke euch

12.08.2005 11:38:36

bernd

AW: inputboxeingabe

12.08.2005 11:04:44

Ramses

Hallo
probier mal
Option Explicit

Sub demo()
Dim inVar As Variant
Do
inVar = InputBox("Zahl eingeben", "Vorgabe", "1234")
If inVar = "" Then Exit Do
Loop Until IsNumeric(inVar) And Len(inVar) = 4
End Sub
Gruss Rainer

AW: inputboxeingabe

12.08.2005 11:04:49

Christoph

hallo Bernd,
so zB
Gruß
Christoph

Option Explicit
Sub Test()
Dim strIn As String
strIn = InputBox("vier Ziffern")
If Len(strIn) <> 4 Or Not IsNumeric(strIn) Then
MsgBox "falsche Eingabe"
Else: MsgBox "OK"
End If
End Sub

ich danke euch

12.08.2005 11:38:36

bernd

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!