Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 10:01:30
Benannte Bereiche durchsuchen
23.10.2025 09:36:17
Manuelle Formelberechnung vba
23.10.2025 09:29:52
Markiertes Shape "Ellipse" ändern, ohne Namenangabe
23.10.2025 06:53:43
Zeilen löschen oder ausblenden wenn Zeile darüber höher wird
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

HEX-Code aus BIN-File einlesen

Forumthread: HEX-Code aus BIN-File einlesen

HEX-Code aus BIN-File einlesen
09.05.2014 22:41:30
Helge
Hallo,
ich bin ganz neu hier und habe, soweit ich das anhand anderer Fragen und Antworten erkennen kann, doch recht wenig Ahnung von Excel. Daher wende ich mich nach einigen gescheiterten Versuchen an euch.
Ich möchte mittels Schaltfläche den Hexadezimalen Inhalt einer .bin - Datei in das Feld A1 einlesen lassen. Die Dateien sind immer .bin und können eine Größe von 128-2048 Byte haben. Momentan schaue ich mir diese Dateien in einem separaten Hex-Editor an und füge diesen Inhalt dann manuell in das Feld ein.
Die Auswertung der Inhalte ist schon auf dieses Konzept abgestimmt (bin ich noch bei), daher wäre ein Aufteilen auf verschiedene Zellen jetzt nachteilig.
Vielleicht kann mir ja hier jemand ein paar Tips geben.
Achso... ich habe leider NULL Ahnung von VBA, aber ich vermute mal, dass es ohne Makros nicht zu realisieren ist, oder?
Schonmal vielen Dank im Voraus

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: HEX-Code aus BIN-File einlesen
10.05.2014 09:53:09
fcs
Hallo Helge,
hier ein Makro das den Inhalt einer Text-Datei in eine Zelle schreibt.
Evtl. funktioniert das auch mit deiner BIN-Datei. Den Wert der Konstanten intFormat musst du evtl. auf 0 ändern.
Gruß
Franz
Sub GetBinData_02()
Dim varAuswahl As Variant
Dim ZielZelle As Range
Const intIOmode As Integer = 1    '1 = ForReading, 2 = ForWriting, 8 = ForAppending
Const bolCreate As Boolean = True 'bei Writing oder Appending wird ggf. eine neue Datei  _
angelegt
Const intFormat As Integer = -1   '0 = ASCII, -1 = Unicode, -2 = Systemdefault
Dim FSO, TextStream
Set ZielZelle = ActiveSheet.Range("A1")
varAuswahl = Application.GetOpenFilename(Filefilter:="binäre Datei (*.bin),*.bin", _
Title:="Bitte binäre Datei auswählen, die in A1 eingefügt werden soll")
If Not varAuswahl = False Then
Set FSO = CreateObject("Scripting.FileSystemObject")
'TextStream-Objekt: object.OpenTextFile(filename[, iomode[, create[, format]]])
Set TextStream = FSO.OpenTextFile(varAuswahl, intIOmode, bolCreate, intFormat)
ZielZelle.Value = "'" & TextStream.Readall 'Hochkomma, damit Zahlen/Datum nicht _
konvertiert werden
TextStream.Close
Set FSO = Nothing
End If
End Sub

Anzeige
AW: HEX-Code aus BIN-File einlesen
10.05.2014 18:48:16
Helge
Hallo Franz,
funktioniert leider nicht...
Den Dateninhalt als HEX bekomme ich überhaupt nicht dargestellt und wenn ich auf ASCII umstelle, dann schreibt er nur ein Hochkomma und nachfolgend nur bis dahin, wo im ASCII ein Leerwert erkannt wird (Bsp.: 00 o. 8D etc.). Der Rest wird einfach abgeschnitten, aber wie gesagt, ich bekomme ja scho gar keinen Hex-Code angezeigt. Von daher ist das andere ja nicht so wild.

Anzeige
AW: HEX-Code aus BIN-File einlesen
11.05.2014 07:46:46
ChristianM
Hallo Helge,
so zB. Dateiname und Tabellenblatt musst du entsprechend anpassen.
Option Explicit
Sub ReadBinaryFile()
Dim strFile As String
Dim strRes As String
Dim intFile As Integer
Dim bytTmp As Byte
strFile = "D:\test.bin"
intFile = FreeFile
Open strFile For Binary Access Read As #intFile
Do While Not EOF(intFile)
Get intFile, , bytTmp
strRes = strRes & Hex(bytTmp) & " "
Loop
Close #intFile
ThisWorkbook.Sheets("Tabelle1").Cells(1, 1) = Trim(strRes)
End Sub
Gruß
Christian

Anzeige
AW: HEX-Code aus BIN-File einlesen
11.05.2014 22:29:36
Helge
Hallo Christian,
vielen Dank erstmal !!! ES FUNKTIONIERT !!!
bis auf eine "Kleinigkeit" ...
Sofern ein 2-Byte-Wort mit einer 0 beginnt, wird diese weggelassen (Bsp. 00=0, 07=7, 0F=F).
Das ist schlecht, da ich mich bei der Auswertung der Datei auf die Position eines Bytes beziehe, im Stil von "=TEIL(A1;458;32)"
Gibt es da noch eine Möglichkeit der Optimierung ?
MfG
Helge

Anzeige
AW: HEX-Code aus BIN-File einlesen
11.05.2014 22:30:06
Helge
Hallo Christian,
vielen Dank erstmal !!! ES FUNKTIONIERT !!!
bis auf eine "Kleinigkeit" ...
Sofern ein 2-Byte-Wort mit einer 0 beginnt, wird diese weggelassen (Bsp. 00=0, 07=7, 0F=F).
Das ist schlecht, da ich mich bei der Auswertung der Datei auf die Position eines Bytes beziehe, im Stil von "=TEIL(A1;458;32)"
Gibt es da noch eine Möglichkeit der Optimierung ?
MfG
Helge

Anzeige
AW: HEX-Code aus BIN-File einlesen
12.05.2014 09:07:47
ChristianM
meinst du so? 

Option Explicit
Sub ReadBinaryFile()
Dim strFile As String
Dim strRes As String
Dim strTmp As String
Dim intFile As Integer
Dim bytTmp As Byte
strFile = "D:\test.bin"
intFile = FreeFile
Open strFile For Binary Access Read As #intFile
Do While Not EOF(intFile)
Get intFile, , bytTmp
strTmp = CStr(Hex(bytTmp))
If Len(strTmp)
Gruß
Christian

Anzeige
AW: HEX-Code aus BIN-File einlesen
14.05.2014 19:15:58
Helge
Ja, genau !
Vielen Dank Christian
;

Forumthreads zu verwandten Themen

Code Hilfe mit SpinButton und Textfeld.
amintire

Hallo liebe Excel Freunde,
benötige Hilfe bei dem Code. Es geht darum, das ich mit dem SpinButton1 die Bilder auswähle,
TextBox1 erhält dann den Bildpfad mit dem Dateinamen.
In TextBox2 soll nun die Eingabe von der Tabelle drinstehen.
In der Tabelle13 ab Zeile 2
A2 = Bildpfa...
27.09.2011 10:32:49
Thread-ID: 1231617
2 Beiträge
binäre Datei einlesen und in csv wandeln
Florian

Hallo zusammen,
Ich bin neu hier und befasse mich das erste mal mit VBA. Ich möchte eine binäre Datei deren Struktur ich kenne einzulesen und als csv oder ähnliches zu speichern. Da die Datei ziemlich viele Elemente mit unterschiedlichen Datentypen enthält, scheint mir das einlesen jedes ei...
28.11.2013 22:55:59
Thread-ID: 1340469
3 Beiträge
Downloadfenster beim Öffnen von Datei unterbinden?
Kasimir
Hallo Leute!
Ich habe da mal eine Frage. Ich öffne mit einem Makro eine Datei, die in einem Netzlaufwerk liegt, um daraus Daten zu kopieren. Nun dauert das Öffnen der Datei etwas länger und mir wird immer ein Download-Fenster mit einem Zustandsbalken, wie weit die Datei geladen wurde, angezeigt...
02.04.2015 14:21:28
Thread-ID: 1418771
3 Beiträge
Was ist eine .csv Datei
Peter
Hallo Excelianer,

im Beitrag untenan Fragt jemand etwas über eine CSV Datei,
kann mir ev. jemand erklären was eine .csv Datei ist, und was
man damit machen kann?

Es Grüsst und Dankt euch Peter
09.11.2003 01:17:59
Thread-ID: 335278
3 Beiträge
Binärdatei auslesen
Heiko

Hallo, Excel-Profis,
ist es möglich mit Hilfe von VBA Binärdateien nicht nur zu öffnen (z.B. GetOpenBinary), sondern auch den Inhalt einzelner Adressblöcke auszulesen und in Realzahlen zu übersetzen?
Zum Beispiel habe ich eine Datei, die ab einer bestimmten Adresse (z.B. 306) Zahlen wer...
02.09.2005 09:34:43
Thread-ID: 661522
2 Beiträge
Unsigned Long aus Binär Datei einlesen
Marco

Halllo liebe Excel Gemeinde,
ich suche leider schon seit Stunden eine Lösung eine Preisdatei in Excel einzulesen, laut Dateibeschreibung ist der Datentyp unsigned long, leider beherrscht VBA nur den Typen Long.
Type Datensatz
Teilenummer As String * 14
Preis As Long
End Typ...
27.10.2006 13:16:49
Thread-ID: 814512
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

HEX-Code aus einer .bin Datei einlesen in Excel

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeinWorkbookName)", wähle "Einfügen" und dann "Modul".

  3. Makro einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit
Sub ReadBinaryFile()
   Dim strFile As String
   Dim strRes As String
   Dim strTmp As String
   Dim intFile As Integer
   Dim bytTmp As Byte
   strFile = Application.GetOpenFilename(Filefilter:="binäre Datei (*.bin),*.bin", Title:="Bitte .bin Datei auswählen")
   intFile = FreeFile
   Open strFile For Binary Access Read As #intFile
   Do While Not EOF(intFile)
       Get intFile, , bytTmp
       strTmp = CStr(Hex(bytTmp))
       If Len(strTmp) < 2 Then strTmp = "0" & strTmp 'Werte mit führenden Nullen
       strRes = strRes & strTmp & " "
   Loop
   Close #intFile
   ThisWorkbook.Sheets("Tabelle1").Cells(1, 1) = Trim(strRes)
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro über ALT + F8 aus. Wähle ReadBinaryFile und klicke auf "Ausführen".

  5. .bin Datei auswählen: Wähle die gewünschte .bin datei aus und der Inhalt wird in Hexadezimalformat in Zelle A1 eingefügt.

Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden"
    Lösung: Stelle sicher, dass der Pfad zur .bin datei korrekt ist und die Datei existiert.

  • Problem: Hexadezimalwerte werden abgeschnitten
    Lösung: Achte darauf, dass die Werte mit führenden Nullen formatiert werden, wie im obigen Code gezeigt.

Alternative Methoden

Eine weitere Möglichkeit, .bin dateien zu lesen, ist die Verwendung eines externen Hex-Code Editors. Diese Tools können die Datei im Hex-Format anzeigen und es ermöglichen, die Inhalte leicht zu kopieren.

Praktische Beispiele

Wenn du eine .bin datei öffnest, die zum Beispiel folgende Bytes enthält:
00 01 02 03 04 05
Wird der Hex-Code in Zelle A1 als 00 01 02 03 04 05 angezeigt. Dies ist besonders nützlich, wenn du die bin datei in hex umwandeln möchtest.

Tipps für Profis

  • Verwende die Excel HEX-Funktion, um direkt in Excel mit Hexadezimalzahlen zu arbeiten.
  • Experimentiere mit VBA-Funktionen, um die Effizienz beim Einlesen der Inhalte aus .bin dateien zu erhöhen.

FAQ: Häufige Fragen

1. Was ist eine .bin datei?
Eine .bin datei ist eine Binärdatei, die Daten in einem format enthält, das von einem Programm oder Gerät interpretiert werden kann.

2. Wie kann ich eine bin datei in hex umwandeln?
Verwende das oben beschriebene VBA-Makro, um die Inhalte der .bin datei in Hexadezimalformat in Excel zu importieren.

3. Funktioniert das auch ohne VBA?
Ohne VBA ist das Einlesen der Inhalte einer .bin datei nicht möglich. Du kannst jedoch einen Hex-Code Editor verwenden, um die Datei zu analysieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige