Hex/Binär/Dezimal/Octal Converter

[r26t01]

Also, ich habe bereits folgenden Code für Dez => Hex und Hex => Dez. Der soll jetzt aber noch ein bisschen verfeinert/vereinfacht(?) werden bzw. noch die Umrechnung nach Octal und Binär hinzufügen. Wenn man dann in eins der Felder eine Zahl eingibt, dass dann sofort in alle anderen umgerechnet wird und die von Hand eingegebene Zahl fett markiert wird.

Sub Makro1()


If Range("B3").value < 0 Then

    MsgBox "Negative Eingaben sind nicht möglich"

    Exit Sub

End If


If Range("B3").value = 0 Or Range("B3").value = "" Then

    MsgBox "Bitte etwas eingeben"

    Exit Sub

Else


' Dezimal nach Hexadezimal

Dim lngDezimal As Long

lngDezimal = Range("B3").value

MsgBox "Der Hex-Wert lautet: " & Hex$(lngDezimal)


End If

End Sub

und

Sub Makro2()


If Range("B6").value < 0 Then

    MsgBox "Negative Eingaben sind nicht möglich"

    Exit Sub

End If


If Range("B6").value = 0 Or Range("B6").value = "" Then

    MsgBox "Bitte etwas eingeben"

    Exit Sub

Else


' Hexadezimal nach Dezimal

Dim strHex As String

strHex = [B6]

lngDezimal = CLng("&H" & strHex)

MsgBox "Der Dezimalwert von Hex ist: " & _

lngDezimal


End If

End Sub

btw. hab die versch. Makros auf Schaltflächen gelegt.

Bearbeitet 7. September 2009 von r26t01

[flashpixx]

Wie man Fragen richtig stellt: eine Anleitung wie man Fragen erfolgreich in Usenet, Mailing Listen und Webforen stellt.