Office: Dezimal in Binär umrechnen

Hallo zusammen,

wer kann mir sagen wie der VBA-"Befehl" zur Umwandlung einer Dezimal- in eine Binärzahl lautet.

Danke

Gruß
Petra

:)

 

Hallo Petra,

bei aktiviertem Add-In "Analysetools - VBA" geht das über

Code:

Bei zusätzlich gesetztem Verweis auf die "atpvbaen.xls" auch komfortabler über

Code:

Grüße
EarlFred

 

Auch Hallo,

ohne Analyse-Funktionen z.B. so.

cu, Bernd
--
Option Explicit

Function dec2bin(ByVal lngZahl As Long) As String
If lngZahl > 0 Then dec2bin = dec2bin(lngZahl \ 2) & IIf(lngZahl Mod 2, "1", "0")
End Function

 

Hallo EarlFred, hallo bst,

die Dezimalzahl steht in Zelle "A1", die binäre soll in Zelle "B1". Wird die Funktion in die Zelle geschrieben oder wie geht das?

Gruß
Petra

 

Hallo Petra,

Aktiviere entweder die Analyse-Funktionen oder kopiere meinen Code in ein normales VBA-Modul.

Dann schreibe in die Zelle B1 einfach die Formel =dec2bin(A1)

cu, Bernd

 

Danke bst

 

Hallo Bernd,

die Funktion ist gut, enthält jedoch einen kleinen Fehler! Der Binärwert von 0 ist 0. Deine Funktion liefert einen Nullstring zurück! *frown.gif*

Da aber auch bei einem anderen Wert als 0 keine 0 vor der Zahl stehen soll, muss du auf drei Werte Prüfen: 0, 1 und alles andere! Code:

Viele Grüße
rastrans

 

hi, und wie sieht ein programm für den Fußweg aus, also keinen direkten befehl sondern ein programm, vllt. so mit

for i = 0 to len(binär)

if -der wert der stelle i - = 1 then dezimal = dezimal + 2^i

next i
oder so änlich?