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