"Bit wise and" giver "Error 6 overflow", når værdien er over hvad der svarer til 32 bit.

Hej martpe.
såvidt jeg kan forstå, har du deklareret dine objekter som skal til en celle.
Hvis der ikke er nogen specifik enkodning som ascii eller unicode,
vil jeg foreslå du laver en løkke, der hvor din bitwise and står.
så løkken kan måske ser sådan her ud:

Dim var1 As Double = Cells(J, 1)
Dim var2 As Double = Cells(J, 2)
Dim var3 As Double = var1 And var2
Dim int1 as Integer64
Dim int2 as Integer64
If Var1 And Var2 >= int1 then
  int1 = Var1 And Var2
End If

Men såvidt jeg kan læse på http://visualbasic.about.com/od/usingvbnet/a/datatypes.htm
er Double en 64bit, så jeg kan ikke forstå hvordan din bitwise and ikke vil tage højere end 31 bit.

Jeg har en løkke rundt om, som skal køre det antal gange, som der er tal i kolonne A og B. Men løkke eller ej, så ændrer det jo ikke ved det primære at der kommer overflow - nedenfor er har jeg skrevet koden, så den kun skal lave en bit wise and på A1 og B1 --> resultat i C1. Den kommer med fejl hvis A1 og B1 fx begge sættes til 2^32.

Sub Bin()

J = 1

var1 (værdi 2^32) = Cells(J, 1)
var2 (værdi 2^32) = Cells(J, 2)
var3 = var1 And var2

' Linjen med Var3 - "bit wise and" linjen - giver fejl (Error 6 overflow, når resultat er over 2^31.

Cells(J, 3) = var3
End Sub