TEXTFELD FEHLERBOX

Forumthread: TEXTFELD FEHLERBOX

TEXTFELD FEHLERBOX

03.01.2007 10:41:39

Servoazubi

Hallo liebe Experten,
ich habe einen Code für ein Eingabefeld, das wenn der Wert nicht 0 oder 1 ist direkt eine FehlerBox ausgeben soll. LEider funzt mien Code nicht. Nehmen wir an das Textfeld heisst txtfracht. Wir muss der Code richtig lauten .... ich wollte es mit if machen aber das geht nicht vernünftig bei mir.
Danke für eure hilfe

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TEXTFELD FEHLERBOX

03.01.2007 10:46:28

egres
AW: TEXTFELD FEHLERBOX

03.01.2007 10:51:12

Servoazubi
AW: TEXTFELD FEHLERBOX

03.01.2007 11:03:35

Hoffi
AW: TEXTFELD FEHLERBOX

03.01.2007 11:12:05

Servoazubi
AW: TEXTFELD FEHLERBOX

03.01.2007 11:32:05

ChrisL
AW: TEXTFELD FEHLERBOX

03.01.2007 11:35:11

Hoffi
AW: TEXTFELD FEHLERBOX

03.01.2007 11:35:53

egres

AW: TEXTFELD FEHLERBOX

03.01.2007 10:46:28

egres

Hallo Servoazubi
So etwas geht über Daten/Gültigkeit!
Gruss
egres

AW: TEXTFELD FEHLERBOX

03.01.2007 10:51:12

Servoazubi

ich komm damit garnicht weiter sorry, brauche am besten nen code, da wenn ich was selber schriebe meistens das kleinste vergesse und dann garnix geht.

AW: TEXTFELD FEHLERBOX

03.01.2007 11:03:35

Hoffi

Hallo,
versuchs mit select Case
Select Case txtFracht.Text
Case 1,0
'Fehlerbox nicht anzeigen
Case Else
'Fehlerbox anzeigen
End select
ungetestet
Grüße
Hoffi

AW: TEXTFELD FEHLERBOX

03.01.2007 11:12:05

Servoazubi

kleine änderung ...... es soll ja nur eine fehlerboxkommen wenn der wert nicht eins oder null ist, wenn der wert 1 oder 0 ist soll nicht passieren

AW: TEXTFELD FEHLERBOX

03.01.2007 11:32:05

ChrisL

Hallo
Ich denke die Probleme stehen in Zusammenhang mit dem Datentyp (TextBox = Text). Daher würde ich mal mit String probieren z.B.:
Select Case txtFracht.Text
Case "1","0"
Case Else
MsgBox "Fehler"
End select
Gruss
Chris

AW: TEXTFELD FEHLERBOX

03.01.2007 11:35:11

Hoffi

Hallo,
das tut das Makro ja. wenn du eine 1 oder null eingibst, passiert nix, bei allen anderen eingaben, kommt die MsgBox.


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Select Case TextBox1.Text
Case 1, 0
Case Else
MsgBox "Fehler"
End Select
End Sub

wenn es mit diesem code nicht klappt,dann nimm den Tip von Chris, also die 1 und die 0 in "" setzen.
Grüße
Hoffi

AW: TEXTFELD FEHLERBOX

03.01.2007 11:35:53

egres

Hallo
gib mal etwas anders als 0 oder 1 in Zelle a1 ein : https://www.herber.de/bbs/user/39332.xls
Egres...

Beliebteste Forumthreads (12 Monate)

Forumthread: TEXTFELD FEHLERBOX

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread