Ich muss grosse Zahlen von Hex nach Dec konvertieren
Habe hier ein Makro gefunden, das funktioniert.
Jetzt möchte ich auch von Dec nach Hex konvertieren
kann mir da jemand einen Code angeben
https://www.herber.de/bbs/user/96612.xlsm
vielen Dank
Pepi
Public Function DecToHex(ByVal Dec As Double) As String
Dim i As Long, j As Long
Dim x As Long
Const Hexziffer As String = "0123456789ABCDEF"
For i = 0 To 14
If 16 ^ i > Dec Then Exit For
Next
For j = i - 1 To 0 Step -1
x = Dec \ 16 ^ j
DecToHex = DecToHex & Mid$(Hexziffer, x + 1, 1)
Dec = Dec - x * 16 ^ j
Next
End Function
beachte jedoch, das Excel bei Double nur mit 15 Signifikanten Stellen rechnet.
Public Function DecToHexStr(Dec As Double) As String
Dim Rest As Double
Dim strHEX As String
Dim Nachkomma As Double
Dim Test As Long
Rest = Dec
Do
Nachkomma = (Rest / 16) - VBA.Fix(Rest / 16)
Test = Round(Nachkomma * 16, 0)
Select Case Test
Case 0 To 9: strHEX = Format(Test, "0") & strHEX
Case 10: strHEX = "A" & strHEX
Case 11: strHEX = "B" & strHEX
Case 12: strHEX = "C" & strHEX
Case 13: strHEX = "D" & strHEX
Case 14: strHEX = "E" & strHEX
Case 15: strHEX = "F" & strHEX
End Select
Rest = (Rest - Test) / 16
If Rest