title image


Smiley Re: Zahl Gerade / Ungerade
Hi,



Sub GeradeZahl()

Dim Wert As Integer

Wert = ActiveCell.Value

If Wert mod 2 = 0 Then

MsgBox "Zahl gerade!"

Else

MsgBox "Zahl ungerade!"

End If

End Sub



mfg xla





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: