Public Function binverse(wCell As String) As String
Dim x, y As Integer
Dim nResult As String
nResult = vbNullString
x = Len(wCell)
For y = 1 To x
If Mid(wCell, y, 1) = "1" Then
nResult = nResult & "0"
Else
nResult = nResult & "1"
End If
Next
binverse = nResult
End Function




"boardmaker"
schreef in bericht
...

To make my life a little easier is there any way to get a binary number
to inverse. Example. 1110 in a1 so then b1 would become 0001.


--
boardmaker
------------------------------------------------------------------------
boardmaker's Profile:
http://www.excelforum.com/member.php...o&userid=34854
View this thread: http://www.excelforum.com/showthread...hreadid=551647