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
132to136
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
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige