Problem bei If Anweisung

[Kuwer]

Hallo,

so würde ich es machen:

Code:

Private Sub TextBox10_Afterupdate()
  If IsNumeric(TextBox10) And IsNumeric(TextBox13) Then
    Select Case CDbl(TextBox10) - CDbl(TextBox13)
      Case Is = 0
        TextBox14 = "halten"
      Case Is < 0
        TextBox14 = "SL erhöhen"
      Case Is > 0
        TextBox14 = "verkaufen"
    End Select
  End If
End Sub

Gruß Uwe

[Steffl]

Hallo Bernie,

ich hatte in meinen zwei Beiträgen in diesen Thread zwei verschiedene Codes gepostet und daher ist der Einwand von Ralf schon berechtigt. Bei der If-Abfrage gibt es zwei Varianten. Die einzeilige und die Blockvariante. Bei der einzeiligen ist kein End If nötig, bei der Block schon siehe auch OH zu If-Abfrage.

If...Then...Else-Anweisung
Siehe auch Beispiel Zusatzinfo

Führt eine Gruppe von Anweisungen aus, wenn bestimmte Bedingungen erfüllt sind, die vom Wert eines Ausdrucks abhängen.

Syntax

If Bedingung Then [Anweisungen] [Else elseAnweisungen]

Alternativ können Sie die Block-Syntax verwenden:

If Bedingung Then
[Anweisungen]

[ElseIf Bedingung-n Then
[elseifAnweisungen] ...

[Else
[elseAnweisungen]]

End If

[Rabe]

Hi,

Bei der If-Abfrage gibt es zwei Varianten. Die einzeilige und die Blockvariante. Bei der einzeiligen ist kein End If nötig, bei der Block schon siehe auch OH zu If-Abfrage.

ich finde einfach die Block-Variante übersichtlicher und verwende deswegen immer ein "End If". Dann ist ganz klar der Beginn und das Ende definiert.

[Kuwer]

Hallo Ralf,

ich bin da ganz Deiner Meinung. Die Lesbarkeit des Codes ist dadurch bedeutend besser.

Gruß Uwe