---

Moin zusammen!

Gibt es eine Möglichkeit, in einer Select-Case-Anweisung zwei Bedingungen gleichzeitig auszuwerten?

Grüße

Hofe

------------------
Ist mir egal, wer Dein Vater ist; solange ich hier angle läuft keiner übers Wasser!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo und einen schönen Tag Hofe.

Meinst du 2 Variablen?
Wenn nicht, dann ein Klares NEIN

Oder
Function Bonus(Leistung, Einkommen)
    Select Case Leistung
        Case 1
            Bonus = Einkommen * 0.1
        Case 2, 3
            Bonus = Einkommen * 0.09
        Case 4 To 6
            Bonus = Einkommen * 0.07
        Case Is > 8
            Bonus = 100
        Case Else
            Bonus = 0
    End Select

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du 
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen - Nettiquette - alte Suchfuntion - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Konverter - 3D Modelle

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Auch Hallo,

nimm Select Case True, damit geht das schon.

CU, Bernd
--

Code:

---

Option Explicit

Sub x()
  Dim a%, b%, c%
 
  a = 1: b = 2: c = 3
 
  Select Case True
      Case a = 1 And b > 1 And b < 3 And c <> 0
        MsgBox "OK"
  Case Else
        MsgBox "no"
  End Select
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach Ihr beiden,

ich meine zwei Bedingungen pro "Case", z.B.

Case C = "Pass" And cbPass = False
...

Mit Bernds "Case true" scheint das zu funktionieren.
Hab ich noch nie gesehen, ab welcher Version gibts das?

Grüße

Hofe

------------------
Ist mir egal, wer Dein Vater ist; solange ich hier angle läuft keiner übers Wasser!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vorschlag für Workaround: Schreib' Dir die Auswertung von C = "Pass" And cbPass = False in eine Variable, und prüfe diese dann im Select Case (falls die anderen Wegen nicht zum Ziel führen)?!

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Hofe:
... Mit Bernds "Case true" scheint das zu funktionieren.
Hab ich noch nie gesehen, ab welcher Version gibts das? ...

---

Seid es Select Case gibt. True ist lediglich der sogenannte Testausdruck, den die Select Case-Anweisung benötigt 

------------------
Seit Pro/E Version 1 dabei, auwei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Steht darüber tatsächlich nichts in der Hilfe oder brauch ich ne neue Brille?

Habs grad eingebaut, funktioniert bestens!

Bisher hatte ich eine If-Then-Else-Schleife drin, die war mir zu langsam.

Mit der Select-Case flutschts doch gleich um einiges schneller.

Besten Dank nochmals!

------------------
Ist mir egal, wer Dein Vater ist; solange ich hier angle läuft keiner übers Wasser!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Hofe:
Bisher hatte ich eine If-Then-Else-Schleife drin, die war mir zu langsam.

---

Es gibt nicht nur ein If Then...Else...Endif, sondern auch

Code:

---

If Parameter1 then
  ...
ElseIf Parameter2 And Parameter3 Then
  ...
ElseIf Parameter4 Or (Parameter5 And Parameter6) Then
  ...
Else
  ...
End If

---

Und das ist genau so schnell wie Select Case, weil die ElseIf bei Nichtzutreffen ebenfalls nicht durchlaufen werden.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP