Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hex in Binär[vba]

Hex in Binär[vba]
23.11.2006 10:56:39
Metman
Hallo leute,
ist es möglich Hexwerte (egal welcher länge) ohne Umweg in Binär umzuwandeln?
Also als Code.
Gruß
metman

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hex in Binär[vba]
23.11.2006 11:11:58
Metman 

Function hex2bin(hexstring)
Dim tabelle As Variant
Dim binarystring As String
Dim i As Long
Dim hexget, cix
tabelle = Array("0000", "0001", "0010", "0011", _
"0100", "0101", "0110", "0111", "1000", _
"1001", "1010", "1011", "1100", "1101", _
"1110", "1111")
binarystring = ""
For i = 1 To Len(hexstring)
hexget = Mid(hexstring, i, 1)
cix = CInt("&H" & hexget)
binarystring = binarystring & tabelle(cix)
Next
hex2bin = binarystring
End Function

ok ohne die tabelle wäre ich nich darauf gekommen ;)
gruß

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige