VBA Dezimal in Binär?
Hallo,
ich soll mit VBA ein Programm schreiben, welches eine beliebige Dezimalzahl in eine Binärzahl umwandeln kann. Das Prinzip dahinter habe ich verstanden, allerdings scheitert es noch an der Umsetzung. Als Beispielzahl habe ich hier die 17 verwendet.
Sub vba_dezbi()
Dim ergebnis As Integer
Dim zahl As Integer
Dim rest As Integer
Dim lv(1 To 566) As Integer
zahl = 17
Do While zahl > 0
rest = zahl Mod 2 & rest
zahl = zahl / 2
. . .
Loop
MsgBox(...)
End Sub
Ich habe herausgefunden, dass man hierfür Felder(Arrays) benutzen muss, allerdings komme ich damit auch nicht viel weiter... Ich hoffe, dass mir jemand helfen kann und weiß, was ich anstatt "..." schreiben muss.