Jörg Lorenz: Visual Basic - h usw. "umwandeln

Beitrag lesen

Moin,

Soweit so gut, aber was mache ich z.B. mit / ? - ok, ich extrahiere soweit die x2F oder sogar nur 2F

hier kannst Du dann die Funktion einsetzen:

Function Hex2Dez(ByVal strWert As String) As Long
If UCase(Left(strWert, 2)) = "0X" Then
    Hex2Dez = Val("&H" & Mid(strWert, 3))
ElseIf UCase(Left(strWert, 2)) <> "&H" Then
    Hex2Dez = Val("&H" & strWert)
Else
    Hex2Dez = Val(strWert)
End If
End Function

GGf. noch etwas anpassen und das Ergebnis mit Chr(…) weiterverarbeiten. Oder das Chr gleich in die Funktion rein, …

Viele Grüße

Jörg