title image


Smiley Hier eine VBA-Lösung, mit der Du die BIN-Codes der Zeichen umwandeln...
...kannst. Über eine UDF können somit in einer Tabellenzelle die Binärcodes aneinandergehängt werden :



Beispiel : Texte und Binärcodes

Funktionen der Tabelle :

 AB1TextBinärcode2A=TextToBin(A2)3B=TextToBin(A3)4AB=TextToBin(A4)5Hallo=TextToBin(A5)

Ergebnisse in der Tabelle :

 AB1TextBinärcode2A010000013B010000104AB01000001010000105Hallo0100100001100001011011000110110001101111





Der VBA-Code dazu (bitte in ein Modul kopieren) :

Function TextToBin(Zelle)

    Application.Volatile

    bin = ""

    For z = 1 To Len(Zelle.Value)

        bin = bin & binär(Asc(Mid(Zelle, z, 1)), 1)

    Next

    TextToBin = bin

End Function



Function binär(zahl, Optional Bytes = 0)

    temp = ""

    stellen = Application.WorksheetFunction.RoundUp(Log(zahl + 1) / Log(2), 0)



    If Bytes > 0 Then stellen = 8 * Bytes

    For z = stellen To 1 Step -1

        x = IIf(zahl >= (2 ^ (z - 1)), 1, 0)

        temp = temp & x

        zahl = zahl - (2 ^ (z - 1)) * x

    Next

    binär = temp

End Function

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: