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

Ansicht des Beitrags:
Von:
jhs		 Datum:
25.11.2012 11:51:53		 Views:
1817		 Rating:
     
Antwort:
  Ja
Thema:
Dezimal in Binär umwandelen

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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