[Veg]

Moin,

Habe mal wieder wie immer ein kleines Problemchen .
Und zwar will ich im folgenden Code eine if Abfrage einbauen wenn die Wurzel kleiner als 0 ist, bzw wenn diverse Gleichungen nicht gelöst werden können, dass eine Messagebox erstellt wird.

Mein momentaner Code sieht wie folgt aus:

Private Sub btnLoesch_Click()
  With UserForm2
	.tbP = "": .tbQ = "": .tbX1 = "": .tbX2 = ""
  End With
End Sub

Private Sub btnRechnen_Click()
  Dim p, q As Double
  Dim x1, x2 As Double
  
  With UserForm2
	p = Val(.tbP): q = Val(.tbQ)
	x2 = Sqr((p / 2) ^ 2 - q)
	x1 = -(p / 2) + x2: x2 = -(p / 2) - x2
	.tbX1 = "" & x1: .tbX2 = "" & x2
  End With
End Sub

[Graumagier]

Naja, dann bastel' mal schön an deiner Schleife...

[Stefan_der_held]

Kleiner Tipp

Es gibt sonne schöne Error-Funktion

Hilfe sagte:

Error-Funktion


Gibt die Fehlermeldung zu einer bestimmten Fehlernummer zurück.

Syntax

Error[(Fehlernummer)]

Das optionale Argument Fehlernummer kann eine beliebige gültige Fehlernummer sein. Wenn Fehlernummer eine gültige Fehlernummer ist, die nicht definiert ist, gibt Error die Zeichenfolge "Anwendungs- oder objektdefinierter Fehler" zurück. Wenn Fehlernummer ungültig ist, tritt ein Fehler auf. Wenn Fehlernummer nicht angegeben wird, wird die Meldung zurückgegeben, die dem zuletzt aufgetretenen Laufzeitfehler entspricht. Wenn kein Laufzeitfehler aufgetreten ist oder Fehlernummer den Wert 0 hat, gibt Error eine Null-Zeichenfolge ("") zurück.

Bemerkungen

Untersuchen Sie die Einstellungen der Eigenschaften des Err-Objekts, um den zuletzt aufgetretenen Laufzeitfehler zu bestimmen. Der Rückgabewert der Error-Funktion entspricht der Description-Eigenschaft des Err-Objekts.

findest du alles in der OnlineHilfe (Schreiben => Markieren => F1)

EDIT: Mal abgesehen davon dass eine Wurzel nie <= 0 sein kann die Fehlermeldung wird warscheinlich

"Fehler: Division durch 0"

lauten. Mit einer Zahl im Fenster Tittel. Dies ist dann das von dir zu verwendende errorlevel

Dieser Beitrag wurde von Stefan_der_held bearbeitet: 30. Januar 2007 - 10:52