Office: Excel 97-2010 String in Binär umwandeln

Hallo

Vorab, dies ist keine praxisrelevante Aufgabenstellung, daher ist es auch nicht bestürzend wenn es keine Lösung gibt!
Mich würde dennoch interessieren ob es möglich ist eine Zelleingabe binär (Zeichensatz 255, -> 8 Bit) auszugeben, ob Formel oder VBA ………..egal.

Bsp. in der Zelle A1 steht Hallo -> Ausgabe in Zelle B1 0100100001100001011011000110110001101111

H -> ASCII 72 -> bin ->01001000
a -> ASCII 97 -> bin 01100001

und so weiter….

Das ganze vielleicht noch umgekehrt Bin -> String. -> in einer Zelle
01001011111101100110110001101110
Ausgabe in einer Zelle -> Köln

Thx und lg
Bernd

:)

 

Hallo,
sicher geht das.
In ein Modul:
Code:

	A	B	C
2	Hallo	0100100001100001011011000110110001101111	Hallo
3	Testtext	0101010001100101011100110111010001110100011001010111100001110100	Testtext

Zelle	Formel
B2	=String2Bin(A2)
C2	=Bin2String(B2)
B3	=String2Bin(A3)
C3	=Bin2String(B3)

Gruß
Rudi

 

Hallo

hier mal ein Ansatz per Formel


Summe 2

	A	B	C
1	Hallo
2	H	1110010	1110010
3	a	'10010111	'111001010010111
4	l	'100001000	'111001010010111100001000
5	l	'100001000	'111001010010111100001000100001000
6	o	'100010001	'111001010010111100001000100001000100010001

verwendete Formeln
Zelle	Formel	Bereich
A2	=TEIL(A;ZEILE()-1;1)
B2	=HEXINBIN(CODE(A2))
C2	=C1&B2

 

Hallo Rudi, hallo Udem

@Rudi, ich verwende Office 2003 da kommt nur #Wert heraus, komischerweise funktionieren aber die Formeln, wie von Udem gepostet. (Danke schon mal) statt Hexin.. ->hatte ich DezinBin verwendet.
Das Analysetool ist aktiviert... aber anscheinend geht es in VBA nicht über worksheetfunction..... oder habe ich etwas übersehen.....

Den Code habe ich in einem Modul untergebracht.
Inzwischen habe ich noch was über google gefunden..., da bin ich aber erstmal am Testen.

 

Hallo Bernd,

aktiviere bei 2003 im VBE mal den Verweis auf atpvbaen.xls (sollte unter lw:\Programme\Microsoft Office\Office11\Makro\Analyse\ liegen), dann kannst Du die Funktionen direkt aus VBA heraus verwenden.

Rudis Codes leicht modifiziert:
Code:

Andernfalls nimm eine der zahlreichen Funktionen zur Umrechnung von Dezimal in Binär (bzw. umgekehrt), die im Netz zu finden sind, z. B. diese hier:
Code:

(Die Einschränkung, dass die Zahl 0 nicht korrekt behandelt wird, dürfte für das Problem unerheblich sein.)

Grüße
EarlFred

 

01010011011101010111000001100101011100100010000001000100011000010110111001101011 01100101001000000100010101110101011000110110100000100001001000000011101000101001

"Andernfalls nimm eine der zahlreichen Funktionen zur Umrechnung von Dezimal in Binär (bzw. umgekehrt), die im Netz zu finden sind,"

*wink.gif*

Habe ich gerade, aber wie ich sehe geht es auch einfacher....
diesen Link hatte ich gefunden.
http://www.spotlight-wissen.de/archi...ge/489494.html

und auf das hier umgebaut...

Option Explicit
Function docDecCode(rng As Range) As String
Dim i As Integer, DocCode As String
For i = 1 To Len(rng)
DocCode = DocCode & DezimalZuBinär(Asc(Mid(rng, i, 1)))
Next
docDecCode = DocCode
End Function

Function DezimalZuBinär(Zahl As Integer) As String
Dim Ausgabe As String
Dim Exponent As Long
If Zahl = (2 ^ Exponent) Then
Ausgabe = Ausgabe & "1"
Zahl = Zahl - (2 ^ Exponent)
Else
Ausgabe = Ausgabe & "0"
End If
Next Exponent
End If
DezimalZuBinär = Ausgabe
End Function

Function EnCodeDoc(rng As Range)
Dim i As Integer, DocCode As String
For i = 1 To Len(rng) Step 8
DocCode = DocCode & Chr(BinZuDez(Mid(rng, i, 8)))
Next
EnCodeDoc = DocCode
End Function

Function BinZuDez(bin As String) As Integer
Dim Ausgabe As Integer, i As Integer
For i = 0 To 7
Ausgabe = Ausgabe + (CInt(Mid(bin, i + 1, 1)) * 2 ^ (7 - i))
Next
BinZuDez = Ausgabe
End Function

geht auch...und Verweis wird keiner benötigt.
Wie schaffe ich eigentlich eine richtige Codedarstellung in diesem Forum?

01110100011010000111100000100000011101010110111001100100001000000110110001100111