Thema Datum  Von Nutzer Rating
Antwort
19.07.2011 18:37:36 Jeff
NotSolved
Blau Zahlenumwandlung Dezimal in Hexadezimal
 19.07.2011 21:00:48 Dekor
Solved
19.07.2011 21:55:25 Gast34124
NotSolved
20.07.2011 12:09:53 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
19.07.2011 21:00:48		 Views:
1048		 Rating:
     
Antwort:
 Nein
Thema:
Zahlenumwandlung Dezimal in Hexadezimal

Hallo Jeff,

ich denke du willst Dezimal in Hexadezimal umwandeln:

Sub DezToHex()
   Dim Dez As Long
   Dim Restwert As Integer
   Dim Ziffer As String
   Dim Ergebnis As String
   Dez = InputBox("Dezimalzahl")
   If Not IsNumeric(Dez) Then Exit Sub
      If Dez > 0 Then
         Do While Dez > 0
            'MsgBox "Dezwert: " & Dez
            Restwert = Dez Mod 16
            'MsgBox "Restwert: " & Restwert
            If Restwert < 10 Then
               Ziffer = Restwert
            ElseIf Restwert > 9 And Restwert < 16 Then
               Ziffer = Chr(Restwert + 55)
            End If
            Ergebnis = Ziffer & Ergebnis
            Dez = Abs(Dez - Restwert) / 16
         Loop
      Else
         Ergebnis = Dez
      End If
   MsgBox "Hexadezimalzahl: '" & Ergebnis & "'"
End Sub

Gruß Detlev

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.07.2011 18:37:36 Jeff
NotSolved
Blau Zahlenumwandlung Dezimal in Hexadezimal
 19.07.2011 21:00:48 Dekor
Solved
19.07.2011 21:55:25 Gast34124
NotSolved
20.07.2011 12:09:53 Dekor
NotSolved