ExcelBanter - error: 2147417848

Open the Excel sheet,
Then, press "Alt+F11".Microsoft Visual Basic opens up.
Click on "Insert" tab, select 'Module".
then, copy & paste the codes given below in the Module(code).

Dim max_reihen As Integer, lowestRow As Integer, latestCol As Integer
Dim wksA As Worksheet

'[...]
Set wksA =ActiveSheet
With wksA
.Range("A1").Select 'sets focus from possibly selected chart back to
sheet
max_reihen=526 'state of variable just before the critical line is met
lowestRow=2000 'state of variable just before the critical line is met
latestCol=26 'state of variable just before the critical line is met
.Range(.Cells(max_reihen, 1), .Cells(lowestRow, latestCol)) =
vbNullString '<--CRITICAL LINE causing runtime error -2147417848
'[...]
.Range(.Cells(max_reihen, 1), .Cells(lowestRow,
latestCol)).ClearContents '<-- this was my alternative, but this causes a
"Runtime error 1004" instead
'[...]
End With

I hope this helps you.

"aundrea" wrote:

I'm doing a quantitative frequency distribution in megastat "exel" when I
click ok, the following appears : Error No. -2147417848 (Method 'Offset' of
object 'Range' failed) has occurred in Frequency Distributions -
Quantitative....... :( can somebody help me ..... Aundrea