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

Textboxabfrage reagiert nicht auf ""

Textboxabfrage reagiert nicht auf ""
06.04.2008 12:48:00
eberhard
Hallo zusammen,
ich habe den nachfolgenden Code programmiert:

Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If TextBox25.Value  0 Then
With TextBox1
.BackColor = &H80000009
.Enabled = True
End With
With TextBox2
.BackColor = &H80000009
.Enabled = True
End With
End If
End Sub


Alles funktioniert tadellos, bis auf die Abfrage If TextBox25.Value = "". Das Programm erkennt zwar den Inhalt, läuft auch durch die Routine, aber die Feldeigenschaften ändern sich nicht. Auch mit dem Debugger komm ich einfach nicht dahinter.
Kann mir jemand sagen wo der Hase im Pfefer liegt. Ich bin mit meinen Latein am Ende.
Gruß
Eberhard

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

Betreff
Datum
Anwender
Anzeige
AW: Textboxabfrage reagiert nicht auf ""
06.04.2008 13:36:00
Gerd
Hallo Eberhard,
bei den ersten beiden " If TextBox..." - Anweisungen fehlt das "Then"
Bevor ich mir noch evt. Gedanken mache wie man den Code kürzen kann,
ändere im Code mal den BackColor-Wert z.B. auf = vbRed, vbGreen etc., je Bedingung.
Was Du erreichen möchtest, ist mir nämlich leider unklar.
Gruß Gerd

AW: Textboxabfrage reagiert nicht auf ""
06.04.2008 13:45:00
Erich
Hallo Eberhard,
abgesehen von den fehlenden "Then"s:
Textboxen enthalten Text - und du vergleichst ihn mit der Zahl 0.
Wenn man das tut, sollte man genau wissen, was passiert.
Wenn Textbox25 = "" ist, ist .Value > 0. Also wird auch deine letzte Bedinung positiv durchlaufen,
Textbosen 1 und 2 werden aktiviert.
Daneben: du hast drei unabhängig If-Blöcke geschrieben. Wenn der erste erledigt ist,
müssten die anderen doch gar nicht mehr geprüft werden. Das giinge besser mit "ElseIf".
Probier mal diese drei Varianten:

Option Explicit
Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bolOK As Boolean
If IsNumeric(TextBox25) Then
If CDbl(TextBox25) > 0 Then bolOK = True
End If
With TextBox1
If Not bolOK Then .Value = ""
.BackColor = IIf(bolOK, &H80000009, &H8000000F)
.Enabled = bolOK
End With
With TextBox2
If Not bolOK Then .Value = ""
.BackColor = IIf(bolOK, &H80000009, &H8000000F)
.Enabled = bolOK
End With
End Sub
' ODER
Private Sub xxTextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bolOK As Boolean
If IsNumeric(TextBox25) Then
If CDbl(TextBox25) > 0 Then bolOK = True
End If
If bolOK Then
With TextBox1
.BackColor = &H80000009
.Enabled = True
End With
With TextBox2
.BackColor = &H80000009
.Enabled = True
End With
Else
With TextBox1
.Value = ""
.BackColor = &H8000000F
.Enabled = False
End With
With TextBox2
.Value = ""
.BackColor = &H8000000F
.Enabled = False
End With
End If
End Sub
' ODER
Private Sub xxxTextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox25.Value  0 Then     ' trifft auch zu bei TextBox25="xyz"
With TextBox1
.BackColor = &H80000009
.Enabled = True
End With
With TextBox2
.BackColor = &H80000009
.Enabled = True
End With
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
Erledigt:Textboxabfrage reagiert nicht auf ""
06.04.2008 14:07:15
eberhard
Hallo Erich, hallo gerd,
@gerd: Du hattest recht war aber nur ein übertragungsfehler. Danke für den Hinweis!
@erich: habe Deinen Code eingefügt: ICH BIN BEGEISTERT!!!!
Euch Beiden Vielen Dank

ERgänzung:Textboxabfrage reagiert nicht auf ""
06.04.2008 13:58:00
eberhard
Ich habe das Beispiel mal beigefügt.
Nur bei Zahlen in Textbox25, die grösser als 0 (also 1-36000) sind, sollen sie beiden Felder die beschriebenen Eigenschaften haben. Jetzt funktioniert gar nichts mehr so richtig.
Hilfe!
Beispiel siehe hier:
https://www.herber.de/bbs/user/51299.xls
Viele Grüße
Eberhard

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige