Hex 2 Bin

Basti · 2017-11-17T13:07:12+00:00

Hallo Forum, hab wieder meine VBA-Grenzen erreicht. Das Thema wird zu Hauf im World-Wide-Web erwähnt nur habe ich keine Ahnung, wie ich meine Idee umsetzen kann. Ich möchte, dass alle Zellen im markierten Bereich von Hexadezimal in Binär umgewandelt werden. Sub test() Debug.Print HexToBin(410) End Sub Function HexToBin(sHex As String) Dim normal As String, reverse As String, requiredLength As Integer, i As Integer, sFormat _ _ _ As String 'Reversed with strange formatting :-) sFormat = "@@@@-@@@@-@@@@-@@@@" ' straight conversion via decimal normal = CStr(DecToBin(HexToDec(sHex))) 'pad to required lengths Select Case Len(normal) Case Is > 8 requiredLength = 16 Case Is > 5 requiredLength = 8 Case Else requiredLength = 5 End Select Do While Len(normal) Vielen Dank für Eure Hilfe. Gruß Basti

…Basti,
wie es den Anschein zu haben scheint! Es ist nämlich zwischen 3-4 verschiedenen Möglichkeiten zu unterscheiden (hatte mich vor Jahren mal intensiver damit befasst):
1.0 Eine dezimale Ganzzahl ist ziffernweise hexadezimal codiert worden; dann könnte Daniels Methode angewendet wdn. (In der EDV auch ein durchaus übliches Verfahren)
2.0 Eine positive dezimale Ganzzahl ist komplett in eine hexadezimale Zahl gewandelt worden; dann könnte Hansuelis oder eine vglbare Methode angewendet wdn (gilt nicht für 3.!).
3.0 Eine beliebige dezimale Ganzzahl ist komplett in eine hexadezimale Zahl gewandelt worden, wobei ihr Vorzeichen integriert wurde →
3.1 Xl-Methode: Die Fkt DEZINHEX arbeitet vom dezimalen Äquivalent von 8000000000 (-549 755 813 888) bis zu dem von 7FFFFFFFFF (549 755 813 887), also auf Basis von 10 HexDezStellen. Das müsste hier berücksichtigt wdn! Aber …
3.2 Vb-Methode: Die vbFkt Hex arbeitet mit nur 8 HexDezStellen, also von 80000000 (-2 147 483 648) bis 7FFFFFFF (2 147 483 647)!
&bullet; Falls also die 3.Methode zum Einsatz kommen soll und die HexZahl nicht mehr als max 10 Stellen hat, kann mit der Xl-Fkt in eine DezZahl gewandelt wdn. Allerdings lässt sich diese ggf nicht mit einer Xl-Fkt in eine Binärzahl wandeln, weil hierbei ebenfalls 10 BinärStellen Maximum sind!
&bullet; Falls die HexZahl aber mehr als 10 Stellen hat und folglich VBA zum Einsatz kommen muss, ist zu entscheiden, wie im Falle von negativen Zahlen, die ja eine vereinbarte MaximalLänge der Zahl benötigen, zu verfahren ist, zB 8er-, 4er- oder gar nur 2er-Schritte!
&bullet; Spielen negative Zahlen hingg keine Rolle, kann nach 2. oder evtl sogar 1. verfahren wdn.
Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

…Hansueli,
weshalb ich mich auch ausdrücklich auf ±Ganzzahlen beschränkt hatte. Das Ersetzen einer einfachen HexZiffernFolge durch eine binäre ist dagegen relativ einfach, nur sagt die nach Xl- oder VB-Standard nichts über positiv oder negativ aus, wenn ihre Stellenzahl nicht bestimmten Regeln folgt und damit die Anzahl der Vornullen festgelegt wdn kann/muss. Alternativ könnte man natürlich davon ausgehen, dass alle Vornullen angegeben worden sind und damit auch die Anzahl der Vornullen der erzeugten Binärzahl festgelegt ist. Deshalb ist es hierbei ja auch kontraproduktiv, eine DezimalUmwandlung einzuschieben, was ich unter 3. andeuten wollte.
Falls es tatsächlich nur um Signierung gehen sollte, zB die Monate eines Jahres, steht die Stellenzahl ja ohnehin fest und ± wäre irrelevant. Aber, obwohl darauf einiges hinzudeuten scheint, kann das ja nur der Fragesteller selbst wissen, der dann allerdings auch von selbst hätte auf die Lösung kommen können, denn er müsste ja wissen, was er wie signiert und dann hexadezimal zusammengefasst hat (es sei denn, das war jemand anderes).
Falls Daniel das so gemeint hat, wie es geschrieben steht, ginge es nur so, wenn jede HexaZiffer durch eine vollständige 4stellige Bit-Folge ersetzt würde (ggf könnten die ganz linken Vornullen weggelassen wdn). Das geht dann aber nur für Hex→Bin oder Okt→Bin, quasi als Einbahnstraße*. Umgekehrt (unter der Voraussetzung, dass alle Stellen angegeben wurden bzw links fehlende Vornullen ergänzt wdn) wird's auf diese Weise schwierig; man muss dann von rechts nach links in 4er- bzw 3er-Gruppen portionieren.
Eine universelle und bidirektionale Konvertierung sähe natürlich anders aus und müsste im Sinne meines 3.Pkts geregelt sein.
* Mal als FmlBsp mit der unpublizierten UDF RepOpt:
=--RepOpt("substitute";16;1;{2.3};"3FF";VSplit("0123456789ABCDEF";""); HEXINBIN(VSplit("0123456789ABCDEF";"");4)) ⇒ 1111111111
=BININHEX(1111111111) ⇒ FFFFFFFFFF (mit den 2 fehlenden Vornullen ergäbe das #ZAHL!)
=RepOpt("substitute";16;1;{2.3};"001111111111";HEXINBIN(VSplit("0123456789ABCDEF";"");4); VSplit("0123456789ABCDEF";"")) ⇒ 3FF
In diesem simplen Fall klappt das auch umgekehrt, sonst wohl eher nur zufällig. Die Umwandlung der Hex- in eine Okt-Zahl auf diese Weise ergäbe ohnehin nur Blödsinn.
Gruß, Luc :-?

Forumthread: Hex 2 Bin

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Hexadezimal in Binär umwandeln in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)