---

Hallo,

ich möchte über ein Makro einen Parameter prüfen. Wenn die Zahl z.B. gerade ist soll nichts weiter passieren, aber falls die Zahl ungerade z.B. 3 beträgt soll was bestimmtes ausgeführt werden (es werden nur ganze Zahlen eingegeben).

Hat jemand eine Idee?

Vielen Dank!

Gruß Timo

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

---

Servus
Schau mal hier.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

aber wie muss das im CATScript aussehen.

If strParam20.Value/2;1<>0 Then

So funktioniert es nicht.

Danke.

Gruß Timo

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

---

Hallo,

probier mal folgendes...

Code:

---

Sub CATMain()

    Dim bRetCode As Boolean
    bRetCode = isEven(3)
    MsgBox bRetCode
   
End Sub

Function isEven(ByVal Number As Double) As Boolean
   
    Dim dblCheck As Double
    Dim iCheck As Integer
   
    dblCheck = Number / 2
    iCheck = CInt(dblCheck)
   
    If dblCheck = iCheck Then
        isEven = True
    Else
        isEven = False
    End If
       
End Function

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Habe es jetzt hinbekommen, habe wiede zu vorschnell gehandelt.

If strParam20.Value Mod 2 <> 0 Then

Danke.

Gruß Timo

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