Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dezimal in Binär

Dezimal in Binär
David
Hallo zusammen,
gibt es in VBA eine Funktion analog Hex(), die eine Dezimalzahl in eine Binärzahl als String umwandelt?
Hex und Oct habe ich gefunden, aber keine Bin. Die Excelfunktionen lassen sich wohl auch nicht nutzen, da die nur per Addin funzen, oder?
Gruß
David

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Dezimal in Binär
06.07.2009 10:58:01
Kawensmann
Hallo,
so geht's:
Function dec2bin(ByVal lngZahl As Long) As String If lngZahl > 0 Then dec2bin = dec2bin(lngZahl \ 2) & IIf(lngZahl Mod 2, "1", "0") End Function


Gruß
Kawensmann

AW: Dezimal in Binär
06.07.2009 11:21:16
David
Danke, genau DAS habe ich gesucht.
Gruß
David
AW: Dezimal in Binär
06.07.2009 11:24:44
Kawensmann
Wobei Ransis Code genau das gleiche macht, aber auch für größere Zahlen als Long geeignet ist...
AW: Dezimal in Binär
06.07.2009 11:27:55
David
Für meine Zwecke ist long mehr als ausreichend.
Gruß
AW: Dezimal in Binär
06.07.2009 10:58:34
ransi
HAllo
Excel hat da was eigenes.
DezinBin() und BinInDez().
Aber irgendwie funktionieren die bei mir nicht richtig.
HAb mir was eigenes geschrieben:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************


Option Explicit


Public Function DezToBin(zahl) As String
Dim TMP As Variant
Dim L As Double
Dim s As String
TMP = CDec(zahl)
Dim P As Long
'MsgBox Log(zahl) / Log(2)
P = Log(zahl) / Log(2)
Redim B(P) As Byte
For L = P To 0 Step -1
    Select Case TMP - 2 ^ L
        Case Is < 0: B(L) = 48
        Case Is >= 0: B(L) = 49: TMP = CDec(TMP - 2 ^ L)
    End Select
Next
If B(UBound(B)) = 48 Then Redim Preserve B(UBound(B) - 1)
DezToBin = StrReverse(StrConv(B, vbUnicode))
End Function


Public Function BinToDez(BinZahl As String)
Dim B() As Byte
Dim TMP
Dim L As Long
B = StrConv(StrReverse(BinZahl), vbFromUnicode)
For L = LBound(B) To UBound(B)
    If B(L) = 49 Then TMP = CDec(TMP + 2 ^ L)
Next
BinToDez = CStr(TMP)
End Function

Aufruf ist dann so:
Tabelle1

 AB
112345678912345811100000100100010000110000011111001000110000010
2123456789123458 

Formeln der Tabelle
ZelleFormel
B1=DezToBin(A1)
A2=BinToDez(B1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
AW: Dezimal in Binär
06.07.2009 11:10:37
David
Hallo ransi,
danke, aber leider für meinen Zweck unpassend.
Ich brauche ja eben nicht das Ergebnis in Excel sondern als String innerhalb meines Codes!
Gruß
David
AW: Dezimal in Binär
06.07.2009 11:15:59
ransi
HAllo
Wo ist das Problem ?
Option Explicit

Public Sub test()
Dim Z As Long
Dim strText As String
Z = 123456789
strText = DezToBin(Z)
MsgBox strText
End Sub

Public Function DezToBin(zahl) As String
Dim TMP As Variant
Dim L As Double
Dim s As String
TMP = CDec(zahl)
Dim P As Long
'MsgBox Log(zahl) / Log(2)
P = Log(zahl) / Log(2)
Redim B(P) As Byte
For L = P To 0 Step -1
    Select Case TMP - 2 ^ L
        Case Is < 0: B(L) = 48
        Case Is >= 0: B(L) = 49: TMP = CDec(TMP - 2 ^ L)
    End Select
Next
If B(UBound(B)) = 48 Then Redim Preserve B(UBound(B) - 1)
DezToBin = StrReverse(StrConv(B, vbUnicode))
End Function

ransi
Anzeige
AW: Dezimal in Binär
06.07.2009 11:24:16
David
Ok, ich muss gestehen, als ich in deinem Beitrag auf das Ergebnis geschaut habe, was für mich unpassend war, habe ich mir deinen Lösungsansatz gar nicht weiter zu Gemüte geführt.
Ich kann leider mit meinen beschränkten VBA-Kenntnissen nicht erkennen, ob deine Lösung gegenüber der von Kawensmann etwas Anderes macht, aber seine Lösung reicht auf jeden Fall für meine zwecke vollkommen aus.
Trotzdem Dank für deine Mühe.
Gruß
David

149 Forumthreads zu ähnlichen Themen

Mit VBA umrechnen Stunden Minuten Dezimal
chris


Hallo zusammen,
erst einmal allen einen schönen guten morgen.
Jetzt zu meinem problem.Ich habe mir ein VBA Programm erstellt das mir auswertungen macht.
Aber ich verzweifle mit der richtigen umrechnung Stunden minuten und der Dezimalangabe der zeit.
habe unten einen teil me...
12.08.2008 08:12:00
Thread-ID: 1001041
3 Beiträge
Anzeige
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Dezimal-Zeitwert in echten Zeitwert umrechnen
Nicole

Hallo,
ich suche eine VBA-Funktion, die nach Übergabe der Zeit als Double-Wert mit einen echten Zeitwert zurückgibt.
z.B.: 7,25 Std = 7:15
(kann auch dieses Format sein: 7 Std. 15 Minuten)
Danke
LG
Nicole
27.05.2009 09:50:14
Thread-ID: 1077625
6 Beiträge
Anzeige
Zahl in Uhrzeit umwandeln
Bernd

Hallo,
ein frohes neues Jahr.
Ich habe z.B. in A1 die Zahl 58 stehen.
Nun möchte ich, dass in B1 ebenfalls die 58 dargestellt wird. Nun aber nicht mehr als Zahl, sondern als Stunden.
Kann mir da bitte einer helfen.
Lieben Dank
Gruß Bernd
01.01.2010 14:17:36
Thread-ID: 1126624
8 Beiträge
Möchte Zahlreihe In Datum Umwandeln
Leo

Hallo zusammen,
ich möchte gerne eine Zahlenreihe in ein Datum umwandeln ...
Offen geschrieben habe ich eine Reihe von Daten als ASCII Datei und die möchte ich nun in EXCEL reinkopieren. Das Problem ist allerdings eben immer nur die 1.Reihe, die erkennt - wahrscheinlich wohl weil das DA...
30.03.2010 19:23:29
Thread-ID: 1149451
7 Beiträge
Std,Min umwandeln in Dezimalzahl
Herbert

hallo,
ACHTUNG: stunden und minuten von 7:32 in eine dezimalzahl umwandeln ist hier NICHT gefragt, das ist kein problem.
mein problem ist, ich muss eine stundenangabe die in der form std,min (also so 7,53) reinkommt in die dezimalzahl (hier also 7,88) umwandeln. habt ihr mir da bitte ei...
02.04.2010 12:55:46
Thread-ID: 1149975
24 Beiträge
Zeiten Umwandeln in Dezimal und Runden
Jochen

Hallo EXEL Profis,
Habe folgenden Code im Forum gefunden: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:C5")) Is Nothing Then Application.EnableEvents = False Target.Value = Target.Value * 24 Target.NumberFormat = "General" Application.EnableEvents...
25.04.2010 10:10:11
Thread-ID: 1153676
3 Beiträge
Zahl in Datumsformat umwandeln
Gegga

Guten Morgen da draussen
ne ganz banale Frage (für euch versteht sich ;))
Bekomme in einer Spalte folgenden Wert 1001 oder 1003 etc. Diese Zahl bedeutet Jahr und Monat also hier 2010 Januar bzw 2010 März.
Wie muss mein Zahlenformat aussehen, das Excel mir diese Zahl 1001 in Januar 2...
21.07.2010 07:59:21
Thread-ID: 1167997
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
15
5
6
7
6
23
2
4
2
3
15
1
8
10
5
2
10
4
2
3
3
6
3