Thema Datum  Von Nutzer Rating
Antwort
11.01.2023 16:46:52 Gast14793
NotSolved
Blau Wurzel ziehen bei großen Zahlen (16 bis20 stellig)
 12.01.2023 10:12:37 Der Steuerfuzzi
NotSolved
12.01.2023 17:44:08 Gast 14793
NotSolved
13.01.2023 09:36:09 Der Steuerfuzzi
NotSolved
14.01.2023 10:09:36 RPP63
Solved

Ansicht des Beitrags:
Von:
Der Steuerfuzzi		 Datum:
12.01.2023 10:12:37		 Views:
350		 Rating:
     
Antwort:
  Ja
Thema:
Wurzel ziehen bei großen Zahlen (16 bis20 stellig)

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.01.2023 16:46:52 Gast14793
NotSolved
Blau Wurzel ziehen bei großen Zahlen (16 bis20 stellig)
 12.01.2023 10:12:37 Der Steuerfuzzi
NotSolved
12.01.2023 17:44:08 Gast 14793
NotSolved
13.01.2023 09:36:09 Der Steuerfuzzi
NotSolved
14.01.2023 10:09:36 RPP63
Solved