Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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