Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code funktioniert nicht

Code funktioniert nicht
04.01.2007 08:38:16
Servoazubi
Hallo liebe Experter, ich habe einen Teilcode für ein Eingabetextfeld geschrieben. Dieser soll beinhalten das man in diese Zelle nur eine 1 oder eine 0 schreiben darf, andernfalls soll direkt eine fehlermeldung per msgbox kommen. Was ist an meinem code falsch ?
das Textfeld heisst txtFracht

Private Sub txtFracht_AfterUpdate()
If UFFormat.txtFRACHT.Text = "" Then
MsgBox "Bitte Parameter bei Fracht angeben."
ElseIf UFFormat.txtFRACHT.Text = 0 Then
txtFRACHT.Locked = False
ElseIf UFFormat.txtFRACHT.Text = 1 Then
txtFRACHT.Locked = False
Else
MsgBox "Ungültiger Parameter bei Fracht. Geben sie eine 1 oder eine 0 an."
End If
End Sub

DIe txtFracht.locked elemente habe ich nur drin damit der etwas macht wenn da ne 0 ode rne 1 drin ist ..... sind platzhalten weil ich nicht wusste was ich machen kann damit wenn die bedingung 1 oder 0 erfüllt ist der einfach weitermacht, denn dann soll ja nichts passieren.
Ich hoffe man versteht was ich will ..... wahrscheinlich kenne ich einfach nur den richtigen befehl nicht ..... danke für eure Hilfe

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code funktioniert nicht
04.01.2007 08:46:30
chris
Hallo,wenn ich Dich richtig verstehe sollte dir das dein problem beheben.
gruß Chris

Private Sub txtFracht_Change()
On Error GoTo fehler
If UFFormat.txtFracht.Text = "" Then
MsgBox "Bitte Parameter bei Fracht angeben."
ElseIf UFFormat.txtFracht.Text = 0 Then
txtFracht.Locked = False
ElseIf UFFormat.txtFracht.Text = 1 Then
txtFracht.Locked = False
Else
fehler:
MsgBox "Ungültiger Parameter bei Fracht. Geben sie eine 1 oder eine 0 an."
End If
End Sub

AW: Code funktioniert nicht
04.01.2007 08:53:52
Servoazubi
Danke jetzt funktionierts TOP
AW: Code funktioniert nicht
04.01.2007 08:49:23
Hoffi
Hallo,
hat dir unsere Möglichkeit von gestern nicht geholfen?
Hier noch ein anderer Code, der bewirkt, das Du NUR eine 1 oder 0 eingeben darfst:

Private Sub txtFracht_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48,49 '48 steht für 0, 49 für 1
Case Else
MsgBox "Bitte nur 1 oder 0 eingeben"
KeyAscii = 0
End Select
End Sub

Grüße
Hoffi
Anzeige
AW: Code funktioniert nicht
04.01.2007 08:54:56
Servoazubi
Ich hab noch nie mit dem KeyPress gearbeitet darum versuche ich immer diesen BEfehl zu umgehen ....
AW: Code funktioniert nicht
04.01.2007 09:01:10
Hoffi
Hallo,
Im Grunde behebt dieser Befehl aber Dein Problem, da in die Textbox von vornherein NUR die 1 oder 0 zugelassen ist, alle anderen Tasten bewirken das die MSGbox aufgerufen wird.
Grüße
Hoffi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige