Bug in VBA Excel 2007?

[Jo]

Hello,

I'm trying to migrate a macro Excel 2003 to 2007 and I have the
following problem:

When running the code below, Err.Number is always 9 while in 2003
Err.Number is 0:

Public Sub Test ()
Dim i As Long
On Error Resume Next
With ActiveSheet
For i = 1 To 100
. Cells (i, "A"). Value = i
If Err.Number = 0 Then
. Cells (i, "B"). Value = "OK"
Else
. Cells (i, "B"). Value = "KB (" & Err.Number & "-" &
Err.Description & ")"
End If
Err.Clear
Next
End With
End Sub

Is this a BUG VBA 2007 or is it my code that Bugged (in this case why
it works well in 2003?).

Thank you for your help.

 

[macropod]

Hi Jo,

In Excel 2007, I get Err 0 - all cells in column B have 'OK'. Is you copy of Excel fully patched?

 

[Jo]

Hi Jo,

In Excel 2007, I get Err 0 - all cells in column B have 'OK'. Is you copyof Excel fully patched?

--
Cheers
macropod
[Microsoft MVP - Word]

Hello,

I'm trying to migrate a macro Excel 2003 to 2007 and I have the
following problem:

When running  the code below, Err.Number is always 9 while in 2003
Err.Number is 0:

Public Sub Test ()
 Dim i As Long
 On Error Resume Next
 With ActiveSheet
   For i = 1 To 100
     . Cells (i, "A"). Value = i
     If Err.Number = 0 Then
       . Cells (i, "B"). Value = "OK"
     Else
       . Cells (i, "B"). Value = "KB (" & Err.Number & "-" &
Err.Description & ")"
     End If
     Err.Clear
   Next
 End With
End Sub

Is this a BUG VBA 2007 or is it my code that Bugged (in this case why
it works well in 2003?).

Thank you for your help.

Hi,

Thank's for your answer.

You can see on this link http://www.cijoint.fr/cjlink.php?file=cj201002/cij52nqbN0.pdf
some informations about version and updates of my computer.

Best regards

 

[macropod]

Hi Jo,

I am unable to tell from that link whether your version is fully updated - the minor numbers are different than mine, but that may
be because you are using: (a) a French-language installation; and (b) Office Standard (I have Office Professional - but the vba
components should be the same)

--
Cheers
macropod
[Microsoft MVP - Word]

Hi Jo,

In Excel 2007, I get Err 0 - all cells in column B have 'OK'. Is you copy of Excel fully patched?

--
Cheers
macropod
[Microsoft MVP - Word]

Hello,

I'm trying to migrate a macro Excel 2003 to 2007 and I have the
following problem:

When running the code below, Err.Number is always 9 while in 2003
Err.Number is 0:

Public Sub Test ()
Dim i As Long
On Error Resume Next
With ActiveSheet
For i = 1 To 100
. Cells (i, "A"). Value = i
If Err.Number = 0 Then
. Cells (i, "B"). Value = "OK"
Else
. Cells (i, "B"). Value = "KB (" & Err.Number & "-" &
Err.Description & ")"
End If
Err.Clear
Next
End With
End Sub

Is this a BUG VBA 2007 or is it my code that Bugged (in this case why
it works well in 2003?).

Thank you for your help.

Hi,

Thank's for your answer.

You can see on this link http://www.cijoint.fr/cjlink.php?file=cj201002/cij52nqbN0.pdf
some informations about version and updates of my computer.

Best regards