kennt ihr eine Formel mit der ich auch einen längeren
Binärcode (mehr als 10 Zeichen) berechnen kann?
Beispiel:
Zurzeit behelfe ich mir mit einer VBA Funktion (hier in B14),
die ist aber bei sehr vielen Datensätzen etwas langsam.
Daher suche ich eine Excelfunktion!
A | B | C | |
11 | Zeichen | Binär | Zeichen |
12 | C | 0001000011 | 10 |
13 | C | #ZAHL! | 14 |
14 | C | 00000001000101 | 14 |
Formeln der Tabelle | ||||||||
|
Hier die VBA-Funktion zu B14.
Function Dec_To_Binar(sValue As Range, intSystem As Integer) As String
Dim sText$, i%
Dim varDec&, sBinar$, sAusgabe$
sText = sValue.Text
For i = 1 To Len(sText)
varDec = Asc(Mid$(sText, i, 1))
Do
sBinar = varDec Mod 2 & sBinar
varDec = varDec / 2
Loop Until varDec = 0
sAusgabe = sAusgabe & Format(sBinar, String(intSystem, "0"))
sBinar = ""
Next i
Dec_To_Binar = sAusgabe
End Function
Gruß Tino