AW: Umrechnung "Normal" in Binär
18.08.2003 17:49:23
Hajo_Zi
Hallo Steffen
ich besuche zur Zeit einen Excel Lehrgang und da habe wir dies als erstes gemacht
Function Dual(LoDezimal As Long) As String
' Umwandlung in Dualzahl
' in Zelle =Dual(A1)
If IsNumeric(LoDezimal) Then
Dim LoZahl As Long
Do While LoDezimal > 0
Dual = LoDezimal Mod 2 & Dual
LoDezimal = LoDezimal \ 2
Loop
If Dual = "" Then Dual = "0"
End If
End Function
Function Hexa(LoDezimal As Long) As String
' Umwandlung in Hexadezimalzahl
' in Zelle =Hexa(A1)
If IsNumeric(LoDezimal) Then
Dim LoZahl As Long
Dim ByRest As Byte
Dim StZeichen As String
Do While LoDezimal > 0
ByRest = LoDezimal Mod 16
If ByRest > 9 Then
StZeichen = Chr(65 + ByRest - 10) '65 entspr. A
Else
StZeichen = ByRest
End If
Hexa = StZeichen & Hexa
LoDezimal = LoDezimal \ 16
Loop
End If
End Function
Function Dezimal_Dual(StEingabe As String) As Long
' Umwandlung in Dualzahl in normal Zahl
' in Zelle =Dezimal_Dual(A1)
Dim LoI As Long
Dim ByZeichen As Byte
For LoI = 0 To Len(StEingabe) - 1
ByZeichen = Mid(StEingabe, Len(StEingabe) - LoI, 1)
Dezimal_Dual = Dezimal_Dual + 2 ^ LoI * ByZeichen
Next LoI
End Function
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.