title image


Smiley Zahl Gerade / Ungerade
Hallo



Innerhalb einer Prozedur soll mittels Worksheetfunction ermittelt werden, ob eine Zahl gerade oder ungerade ist. Was ist in folgenden Beispielen falsch, dass dies nicht funktioniert, dh. es wird jede Zahl - ob gerade oder ungerade - als gerade ausgegeben.

Danke für Eure Hilfe

Dilemma



Sub GeradeUngerade()



Dim Wsf As WorksheetFunction



Set Wsf = Application.WorksheetFunction



If Wsf.Even(ActiveCell.Value) Then

MsgBox "Zahl gerade!"

Else

MsgBox "Zahl ungerade!"

End If



End Sub



Sub GeradeZahl()



Dim Wert As Integer



Wert = ActiveCell.Value

If WorksheetFunction.Even(Wert) Then

MsgBox "Zahl gerade!"

Else

MsgBox "Zahl ungerade!"

End If



End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: