Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dez nach Dual / Dual nach Dez

Forumthread: Dez nach Dual / Dual nach Dez

Dez nach Dual / Dual nach Dez
01.07.2002 20:44:19
Carsten
Hallo Leute,
Ich weis, dass es diese Funktion in Excel gibt und nur über den AddIn-Manager aktiviert werden braucht, benötige sie aber als seperate Funktion.
Kann mir hierbei jemand helfen?

Gruss
Carsten

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zusatz: Dez nach Dual / Dual nach Dez
01.07.2002 21:00:11
Carsten
Zusatz:

Ich benötige hierbei keine Formel- sondern eine VBA-Lösung.

Carsten

Re: Zusatz: Dez nach Dual / Dual nach Dez
01.07.2002 21:56:16
Sigi E.
Hallo Casten,

folgende User-Funktionen für Zahlen bis 2.147.483.647:


Gruß
Sigi

Re: Dez nach Dual / Dual nach Dez
01.07.2002 22:21:27
Hans W. Hofmann
Vielleicht in VBA:



Function Dez2Bin(zahl As Long) As String

Dim digit As Long, mask As Long

 digit = 0: mask = 1

 Do

      digit = (zahl And mask) / mask

      mask = mask * 2

      Dez2Bin = digit & Dez2Bin

 Loop Until mask > zahl

End Function
Function Bin2Dez(bin As String) As Long

Dim digit As Long, mask As Long

 mask = 1

 For i = Len(bin) To 1 Step -1

    Bin2Dez = Bin2Dez + CLng(Mid(bin, i, 1)) * mask

    mask = mask * 2

 Next

End Function

Anzeige
Danke Sigi, genau das wars. Danke o.T.
01.07.2002 22:33:23
Carsten
'
Hallo Hans,
01.07.2002 22:37:14
Carsten
Werde mit beiden Vorschlägen Experimentieren,
denke aber, dass ich mit beiden Lösungen zurecht komme.

Danke für die Hilfe
Gruss
Carsten

;

Beliebteste Forumthreads (12 Monate)

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