In dem folgenden Programm werden die Zahlen von 0 bis 7 Sekunden gezählt. Ich möchte auch, daß in der Spalte neben den Sekunden im Direktfenster die jeweilige Zahl als Binärzahl haben. Er gibt mir immer nur die 7 bei jeder Zahl als Binärzahl aus. Wie kann ich dieses realisieren, daß bei jeder Sekunde die dazugehörige Binärzahl mit angezeigt wird?
Sub Zähler()
Dim Zahl As Double
Dim i As Byte
For i = 0 To 7 Step 1
Application.Wait Now + TimeSerial(0, 0, 1)
Zahl = 7
Debug.Print i, DezimalNachBinär(Zahl)
Next i
End Sub
Function DezimalNachBinär(Zahl As Double) As String
Dim Losgehts As Boolean
Dim Ausgabe As String
Dim Exp As Long
If Zahl <= (2 ^ 31) - 1 And Zahl = Int(Zahl) Then
For Exp = 30 To 0 Step -1
If Zahl >= (2 ^ Exp) Then
Ausgabe = Ausgabe & "1"
Zahl = Zahl - (2 ^ Exp)
Losgehts = True
Else
If Losgehts = True Then
Ausgabe = Ausgabe & "0"
End If
End If
Next Exp
Else
End If
DezimalNachBinär = Ausgabe
End Function
Danke im voraus