Hallo,
ich bin ein ziemlicher Neuling bei VBA, ist es möglich 2 Variablen mit Select Case zu überprüfen? Ich habe folgendes Problem, ich will 2 Zahlenwerte miteinander vergleichen und
je nachdem wie weit die Zahlen auseinander liegen unterschiedliche Textmeldungen ausgeben
z.B.
Zahl b > Zahl a Ausgabe Text 1
Zahl b um 10 > Zahl a Ausgabe Text 2
Zahl b < Zahl a Ausgabe Text 3
Zahl b um 10 < Zahl a Ausgabe Text 4
wenn der Wert von Zahl b < oder > als Zahl a ist, ist das kein Problem aber sobald es um den zusätzlichen Zahlenwert "10" geht bekomme ich das einfach nicht hin. Ich habe mal mein bisheriges Ergebnis angehängt, ich war auch am überlegen, ob ich das Ganze evtl. mit einer dritten Variable lösen kann, aber wie ich es auch versuche die zweite Anweisung wird bei Select Case ingnoriert. Wäre ganz stark, wenn mir da jemand helfen könnte, danke schonmal im voraus.
Private Sub cmdAuswertung_Click()
'Variablendeklaration
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim strAusgabetext As String
'Auslesen
a = Val(Me.txtFeld1.Value)
b = Val(Me.txtFeld2.Value)
( c = a - b)
'Berechnen und Ausgabe
'If b > a 'And c > 10 Then
'strAusgabetext = "Text1"
'End If
Select Case b And c
Case Is > a And c > 10
strAusgabetext = "Text1"
Case Is > a
strAusgabetext = "Text2"
Case Is < a
strAusgabetext = "Text3"
Case Is < a And c < 10
strAusgabetext = "Text4"
Case Else
End Select
Me.txtAusgabe.Text = strAusgabetext
End Sub
ich bin ein ziemlicher Neuling bei VBA, ist es möglich 2 Variablen mit Select Case zu überprüfen? Ich habe folgendes Problem, ich will 2 Zahlenwerte miteinander vergleichen und
je nachdem wie weit die Zahlen auseinander liegen unterschiedliche Textmeldungen ausgeben
z.B.
Zahl b > Zahl a Ausgabe Text 1
Zahl b um 10 > Zahl a Ausgabe Text 2
Zahl b < Zahl a Ausgabe Text 3
Zahl b um 10 < Zahl a Ausgabe Text 4
wenn der Wert von Zahl b < oder > als Zahl a ist, ist das kein Problem aber sobald es um den zusätzlichen Zahlenwert "10" geht bekomme ich das einfach nicht hin. Ich habe mal mein bisheriges Ergebnis angehängt, ich war auch am überlegen, ob ich das Ganze evtl. mit einer dritten Variable lösen kann, aber wie ich es auch versuche die zweite Anweisung wird bei Select Case ingnoriert. Wäre ganz stark, wenn mir da jemand helfen könnte, danke schonmal im voraus.
Private Sub cmdAuswertung_Click()
'Variablendeklaration
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim strAusgabetext As String
'Auslesen
a = Val(Me.txtFeld1.Value)
b = Val(Me.txtFeld2.Value)
( c = a - b)
'Berechnen und Ausgabe
'If b > a 'And c > 10 Then
'strAusgabetext = "Text1"
'End If
Select Case b And c
Case Is > a And c > 10
strAusgabetext = "Text1"
Case Is > a
strAusgabetext = "Text2"
Case Is < a
strAusgabetext = "Text3"
Case Is < a And c < 10
strAusgabetext = "Text4"
Case Else
End Select
Me.txtAusgabe.Text = strAusgabetext
End Sub