|
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
|