Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

inputboxeingabe

inputboxeingabe
12.08.2005 08: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
Anzeige
AW: inputboxeingabe
12.08.2005 09: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
Anzeige
AW: inputboxeingabe
12.08.2005 09: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 09:38:36
bernd

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige