Hallo Thomas,
dadurch, dass es in VBA die Funktion Hex gibt, steht leider die Worksheetfunction DEC2HEX nicht in VBA zur Verfügung.
Hier eine kleine Function, die vielleicht hilft:
Public Function DEZINHEX(dez As Long) As String
Dim Hexwerte
Hexwerte = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", "C", "D", "E", "F")
wert = dez
While wert > 15
DEZINHEX = Hexwerte(wert Mod 16) & DEZINHEX
wert = Fix(wert / 16)
Wend
DEZINHEX = Hexwerte(wert) & DEZINHEX
End Function
Grüße Lutz
|