Thema Datum  Von Nutzer Rating
Antwort
Rot Dezimal in Binär umwandelen
23.11.2012 18:06:58 Jasmin
NotSolved
25.11.2012 11:51:53 jhs
NotSolved

Ansicht des Beitrags:
Von:
Jasmin
Datum:
23.11.2012 18:06:58
Views:
1933
Rating: Antwort:
  Ja
Thema:
Dezimal in Binär umwandelen

Hey :) ich brauch dringend eure hilfe. ich weiß nicht mehr weiter.. ich muss ein VBA code erstellen der IP adressen in Binär umwandelt. 

also wenn ich z.B in eine Zelle 255.255.255.255 eingebe.. soll nachher 11111111.11111111.11111111.11111111 da stehen.. 

Momentan bin ich soweit gekommen.. ich hab keine ahnung wo mein fehler liegt.

 

 

Public Sub IPAdresse()
Dim Zahl1 As Integer, Zahl2 As Integer, Zahl3 As Integer, Zahl4 As Integer
Dim Stellen1 As Integer, Stellen2 As Integer, Stellen3 As Integer, Stellen4 As Integer
Dim Rest1 As Integer, Rest2 As Integer, Rest3 As Integer, Rest4 As Integer
Dim s1 As String, s2 As String, s3 As String, s4 As String
 
Rest1 = 0
Rest2 = 0
Rest3 = 0
Rest4 = 0
 
Stellen1 = 0
Stellen2 = 0
Stellen3 = 0
Stellen4 = 0
 
Zahl1 = Mid(Range("B1"), 1, 3)
Zahl2 = Mid(Range("B1"), 4, 3)
Zahl3 = Mid(Range("B1"), 7, 3)
Zahl4 = Mid(Range("B1"), 10, 3)
 
If (Zahl1 >= 0 And Zahl1 <= 255) Then
While (Stellen1 <= 8)
If (Zahl1 <> 0) Then
Rest1 = Zahl1 Mod 2
Zahl1 = Zahl1 / 2
s1 = CInt(CStr(Rest1)) & s1
End If
Stellen1 = Stellen1 + 1
Wend
End If
 
If (Zahl2 >= 0 And Zahl2 <= 255) Then
While (Stellen2 <= 8)
If (Zahl2 <> 0) Then
Rest2 = Zahl2 Mod 2
Zahl2 = Zahl2 / 2
s2 = CInt(CStr(Rest2)) & s2
End If
Stellen2 = Stellen2 + 1
Wend
End If
 
If (Zahl3 >= 0 And Zahl3 <= 255) Then
While (Stellen3 <= 8)
If (Zahl3 <> 0) Then
Rest3 = Zahl3 Mod 2
Zahl3 = Zahl3 / 2
s3 = CInt(CStr(Rest3)) & s3
End If
Stellen3 = Stellen3 + 1
Wend
End If
 
If (Zahl4 >= 0 And Zahl4 <= 255) Then
While (Stellen4 <= 8)
If (Zahl4 <> 0) Then
Rest4 = Zahl4 Mod 2
Zahl4 = Zahl4 / 2
s4 = CInt(CStr(Rest4)) & s4
End If
Stellen4 = Stellen4 + 1
Wend
End If
 
Range("B2").Value = s1 & " " & s2 & " " & s3 & " " & s4
 
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Dezimal in Binär umwandelen
23.11.2012 18:06:58 Jasmin
NotSolved
25.11.2012 11:51:53 jhs
NotSolved