Excel VBA - Wert in Hex mit führenden Nullen

[Adam P. (adamap)]

Abend zusammen,

Excel und VBA ist gar nicht mein Bereich, jedoch benötige ich es zur 
Zeit und hab mich heute ein wenig eingelesen, doch die Feinheiten hab 
ich noch net drauf.

Auf folgendes Problem, habe ich noch nichts gefunden:

1)
[Bild: excel.png]

Sub dez_to_hex()
    Dim x As Byte
        
    x = Cells(2, 1).Value
    Cells(2, 2).Value = Hex(x)
End Sub

Ich habe ein Byte.
Nun möchte ich diese Byte in einer Zelle ausgeben, als HEX Wert (mit 
führenden Nullen, hier mit einer 0, also "0A").

Die Ausgabe ansich funktioniert, jedoch bekomme ich die 0 nicht davor.
Habe da leider zuwenig Ahnung von VBA, bzgl. Formatierung und habe auch 
nichts gutes gefunden, was zufriedenstellend wäre.

2)
Wenn ich in dem Excel Dokument ohne VBA das versuche, kann ich das 
nutzen, z.B.:

=DEZINHEX(10;2)

Das ergibt 2 Stellen.

Geht das in der VBA Programmierung etwa nicht?

[Jems (Firma: oA) (timobomm)]

Konnte es aber gerade nicht testen, aber versuch mal

Worksheets("Sheet1").Range("B2").Formula = "="0x"&DEZINHEX(A2;2)"

[Hans-Georg L. (h-g-l)]

=DEZINHEX(Zahl;Stellen)
  =DEZINHEX(10;8)  -> 0000000A

[Frank O. (fop)]

Dann programmiers Dir doch :

Public Function dez_to_hex(ByVal wert As LongLong, ByVal stellen As Byte) As String
    Dim l As Byte
    dez_to_hex = Hex(wert)
    l = Len(dez_to_hex)
    If l < stellen Then dez_to_hex = String$(stellen - l, "0") + dez_to_hex
End Function

[Adam P. (adamap)]

Jems schrieb:
> Worksheets("Sheet1").Range("B2").Formula = "="0x"&DEZINHEX(A2;2)"

Hans-Georg L. schrieb:
> =DEZINHEX(Zahl;Stellen)
>   =DEZINHEX(10;8)  -> 0000000A

Das ist ja das Problem, dass er im Code Editor DEZINHEX nicht kennt.


Frank O. schrieb:
> Public Function dez_to_hex(ByVal wert As LongLong, ByVal stellen As
> Byte) As String
>     Dim l As Byte
>     dez_to_hex = Hex(wert)
>     l = Len(dez_to_hex)
>     If l < stellen Then dez_to_hex = String$(stellen - l, "0") +
> dez_to_hex
> End Function

Das funktioniert, Danke ;)


Trotzdem würde ich gerne wissen, warum ich im Code nicht die gleichen 
"Funktionen" nutzen kann, die man sonst direkt in Excel nutzt?
z.B.:
- DEZINHEX()
- BITRVERSCHIEB()

auch wenn man Bit Shift im Code ja eleganter lösen kann.

[Axel R. (axlr)]

Was es alles gibt.. "BitRverschieb" :) Musste ich gleich mal testen

[Christopher B. (chrimbo)]

Eventuell kennt er ja DECTOHEX im VBA

EDIT: es heißt dann wohl DEC2HEX

[Thomas S. (doschi_)]

Adam P. schrieb:
...
> Trotzdem würde ich gerne wissen, warum ich im Code nicht die gleichen
> "Funktionen" nutzen kann, die man sonst direkt in Excel nutzt?
> z.B.:
> - DEZINHEX()
> - BITRVERSCHIEB()
>
> auch wenn man Bit Shift im Code ja eleganter lösen kann.

Vermutlich, weil VBA die internationale Schreibweise der Funktionen 
nutzt.
siehe  https://de.excel-translator.de/dezinhex/  oder
https://www.excelfunctions.eu/DEZINHEX/German-English
  --> DEZINHEX (de) wird zu  DEC2HEX (en)
 und BITRVERSCHIEB ->  BITRSHIFT

[Jems (Firma: oA) (timobomm)]

Hab auch nochmal ausprobiert. Das hier funktioniert:

Worksheets("Tabelle1").Range("B2").Formula = "=""0x""&DEC2HEX(A2,2)"

-> englische Funktionsnamen
-> Trennung der Parameter mit Komma
-> Anführungszeichen doppelt schreiben

[Adam P. (adamap)]

Muss man da irgendwie noch ein Modul einbinden?

Meiner kennt das nicht.
(Office 2013 / VBA 7.1)

siehe Bild.

[Thomas S. (doschi_)]

Adam P. schrieb:
> Muss man da irgendwie noch ein Modul einbinden?
>
> Meiner kennt das nicht.
> (Office 2013 / VBA 7.1)
>
> siehe Bild.

Großschreibung?

[Adam P. (adamap)]

Thomas S. schrieb:
> Großschreibung?

Ne, im Drop-Down Menü kommen die dann auch nicht.

Hab aber grad wohl was gefunden.
Konvertierungsfunktionen heißen da wohl anders.

z.B.: String -> HEX

Dim str As String
Dim x As Byte

str = Cells(3, zelle + 6).Value
x = CByte("&H" & str)

Aber nun läuft alles.