Microsoft Excel

Herbers Excel/VBA-Archiv

Dualzahlenwandel



Excel-Version: 9.0 (Office 2000)

Betrifft: Dualzahlenwandel
von: Stefan
Geschrieben am: 30.05.2002 - 01:10:07

Ich möchte gerne die Zahlen von 0 bis 7 mittels VBA in einem Modul in Dualzahlen umwandeln. Gibt es hierfür einen Programmierbefehl?

  

Re: Dualzahlenwandel
von: Harald Kapp
Geschrieben am: 30.05.2002 - 06:39:43

Hallo Stefan,
binde per Add-in Manager das Analyse Toolpack ein, dann stehet Dir die Funktion DEC2BIN() zur Verfügung. Alternativ guck mal unter dem Forums-Beitrag 169102, da findest Du eine Erweiterung für Zahlen >512.

Gruß Harald


  

Re: Dualzahlenwandel
von: Sigi E.
Geschrieben am: 30.05.2002 - 10:11:42

Hallo Stefan,

folgende Funktion für Zahlen bis 2.147.483.647:

Function DezimalNachBinär(Zahl As Double) As String
Dim Losgehts As Boolean
Dim Ausgabe As String
Dim Exp As Long
If Zahl <= (2 ^ 31) - 1 And Zahl = Int(Zahl) Then
    For Exp = 30 To Step -1
        If Zahl >= (2 ^ Exp) Then
            Ausgabe = Ausgabe & "1"
            Zahl = Zahl - (2 ^ Exp)
            Losgehts = True
        Else
            If Losgehts = True Then
                Ausgabe = Ausgabe & "0"
            End If
        End If
    Next Exp
Else
    Ausgabe = "Sorry, geht nur bis 2.147.483.647"
End If
DezimalNachBinär = Ausgabe
End Function

Gruß
Sigi