Hallo,
hier mal eine Lösung in VBA über eine benutzerdefinierte Funktion (geht für Zahlen bis 96 bit). Bei Zahlen über der Genauigkeit von Excel erfolgt die Übergabe per String:
Function IsPowerof2(ByVal b As Variant) As Boolean
b = CDec(b)
Do
If Int(Right(b, 1)) Mod 2 Then Exit Function
b = b / 2
Loop While b > 1
IsPowerof2 = True
End Function
Gruß
Michael
|