Hallo Erne,
habe mal eine UDF erstellt, die 2 Ganzzahlen im Bereich von 0 bis 255 binär "verUNDet" und als Ergebnis die entsprechende Ganzzahl ausgibt.
[code]Option Explicit
Public Function bin(zahl1 As Integer, zahl2 As Integer)
Dim strB1 As String, strB2 As String
Dim intI As Integer
strB1 = WorksheetFunction.Dec2Bin(zahl1, 8)
strB2 = WorksheetFunction.Dec2Bin(zahl2, 8)
For intI = 1 To Len(strB1)
bin = bin & Mid(strB1, intI, 1) * Mid(strB2, intI, 1)
Next
bin = Val(WorksheetFunction.Bin2Dec(bin))
End Function
Wenn die beiden Ganzzahlen in A1 und A2 stehen, lautet der Funktionsaufruf
=bin(A1;A2)
Gruss
Rainer