[Excel, VBA] gerade, ungerade Zahl