Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hex in Binär[vba]

Forumthread: Hex in Binär[vba]

Hex in Binär[vba]
23.11.2006 10:56:39
Metman
Hallo leute,
ist es möglich Hexwerte (egal welcher länge) ohne Umweg in Binär umzuwandeln?
Also als Code.
Gruß
metman
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hex in Binär[vba]
23.11.2006 11:11:58
Metman

Function hex2bin(hexstring)
Dim tabelle As Variant
Dim binarystring As String
Dim i As Long
Dim hexget, cix
tabelle = Array("0000", "0001", "0010", "0011", _
"0100", "0101", "0110", "0111", "1000", _
"1001", "1010", "1011", "1100", "1101", _
"1110", "1111")
binarystring = ""
For i = 1 To Len(hexstring)
hexget = Mid(hexstring, i, 1)
cix = CInt("&H" & hexget)
binarystring = binarystring & tabelle(cix)
Next
hex2bin = binarystring
End Function

ok ohne die tabelle wäre ich nich darauf gekommen ;)
gruß
Anzeige
;

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige