Clever-Excel-Forum

Seiten: 1 2

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

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.

Zitat: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

Hi,

(29.09.2014, 17:39)Steffl schrieb: [ -> ]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.

Hallo Ralf,

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

Gruß Uwe

Seiten: 1 2

Kuwer

Steffl

Rabe

Kuwer