ich würde gerne eine Variable prüfen, ob der WErt eine gerade Zahl ist.
Wie kann ich das auf einer UF realisieren? Könnte mir jemand den Code senden?
Gruß Sepp
Sub gerade()
V1 = InputBox("Wert=?")
If V1 Mod 2 = 1 Then
MsgBox V1 & " ist ungerade"
Else
MsgBox V1 & " ist gerade"
End If
End Sub