Hallo,
warum so umständlich?
Public Function IP2Bin(Inp)
Dim i As Long, v
v = Split(Inp, ".")
For i = 0 To UBound(v)
v(i) = WorksheetFunction.Dec2Bin(v(i), 8)
Next i
IP2Bin = Join(v, ".")
End Function
Dieser Code gehört in ein allgemeines Modul. Dann scheibst du einfach in die Zielzelle z. B. =IP2Bin(A1), und schon hast du die IP-Adresse aus A1 in Binärschreibweise.
Gruß Jürgen
|