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

Vergleich von Zahlen schlägt fehl

Vergleich von Zahlen schlägt fehl
22.08.2005 08:33:04
Zahlen
Hallo
Ich habe eine Funktion, welche überprüfen sollte, ob der Wert zulässig ist, den ich zuvor in ein Textfeld geschrieben habe.
Ein Beispiel:
Formular1.Controls("txtMax" & Num).Value = 5
Cells(Num, 2).Value = 2
Cells(Num, 3).Value = 3
Mit diesen Werten sollte die Meldung nicht erscheinen.
Tut sie aber doch. Woran kann das liegen?
Was ist den an dieser If-Anweisung nicht korrekt

Function ueberpruefen(Num As Integer)
MsgBox Formular1.Controls("txtMax" & Num).Value
If Formular1.Controls("txtMax" & Num).Value < Cells(Num, 2).Value Or Formular1.Controls("txtMax" & Num).Value > Cells(Num, 3).Value Then
MsgBox "Bitte einen Wert zwischen" & vbNewLine & Cells(Num, 2) & " und " & Cells(Num, 3) & " eingeben."
Formular1.Controls("txtMax" & Num).SetFocus
End
End If
End Function


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

Betreff
Datum
Anwender
Anzeige
AW: Vergleich von Zahlen schlägt fehl
22.08.2005 08:57:40
Zahlen
Hallo
Textboxen enthalten Text und keine Zahlen
Wechsle also den Datentyp, dann sollte es tun
Nachdem ich den Code nicht kopieren kann hier ein Ansatz

with Formular1
if CDbl(.Controls("txtMax" & Num).value) < Cells(Num,2) or
End With

Bei dieser Codeform auf die Punkte vor ".Controls" achten !!
Gruss Rainer

AW: Vergleich von Zahlen schlägt fehl
22.08.2005 09:07:49
Zahlen
so etwas habe ich gedacht. nun funktioniert es wunderbar.
danke vielmals
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige