Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
204to208
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

User Form bzw. If ...then

User Form bzw. If ...then
20.01.2003 14:14:41
Dari
Hallo, Zusammen,

möchte meine User Form gegen Falscheingaben absichern. Z.B. Wenn in Textbox keine ganze Zahl, dann MsgBox. Wie formuliere ich "Keine ganze Zahl"
Dann habe ich auch eine Datumsabfrage, die ich ebenfalls gegen Falscheingaben (Formatverstöße) sichern möchte, also dd.mm.yy, oder d.m.y sind erlaubt, aber nicht d.my oder sonstiger Quatsch.
Weiß das jemand ?

Gruß aus Reutlingen


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: User Form bzw. If ...then
20.01.2003 16:03:46
Chris
Hallo Dari

If IsNumeric(TextBox1) = False Then
MsgBox ("blablabl")
Exit Sub
End If

If IsDate(TextBox1) = False Then
MsgBox ("blablabl")
Exit Sub
End If

Gruss aus Good Old England
Chris

Re: User Form bzw. If ...then
20.01.2003 16:25:52
guenther
hi Dari,

eine andere möglichkeitfür ganzzahl: prüfe auf punkt oder komma in der textboxeingabe

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
For i = 1 To Len(TextBox1.Text)
If Mid(TextBox1.Text, i, 1) = Chr$(44) Or Mid(TextBox1.Text, i, 1) = Chr$(46) Then
MsgBox "Bitte nur Ganzzahlen ohne Interpunktion eingeben", vbOKOnly + vbExclamation, "Fehler"
Cancel = True
Exit Sub
End If
Next i
End Sub

Gruss
günther

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige