Hex 2 Bin
17.11.2017 13:07:12
Basti
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