http://support.microsoft.com/?kbid=157486
XL97: Limits of PivotTables in Microsoft Excel 97 (Q157486)

http://support.microsoft.com/?kbid=211517
XL2000: Limits of PivotTables in Microsoft Excel 2000 (Q211517)

http://support.microsoft.com/?kbid=291061
XL2002: Limits of PivotTables in Microsoft Excel 2002 (Q291061)


above should give you some insights on what the limits are and how you might
work within them.

Regards,
Tom Ogilvy

"ten" wrote in message
...
Can Anyone please help me:

I have some data I want to put into an PivotTable (doing
some VBA-programming). That is ok.
However, I get a limitation for how many rows I can have:
I have now 5, but want 2 more. But when adding these
(either manually or through change in code), I get a
message telling me I have too many rows or coloumns.

Are there any way I can go past this issue?

I might add that the rows I want, are one to one to other
rows, so that I need no more sums. (Each Account has one
and only one AccountNO, Each Property has one and only one
PropertyNO).

My code follows, and I typically want to add more in
the "AddFields RowFields-section", which I want something
like:
AddFields RowFields:=Array("Property", _
"PropertyNO", "Company", "Acc.kl", "Acc.gr", _
"AccountNO", "Account"),

This is my code:

ActiveSheet.PivotTableWizard SourceType:=xlDatabase,
SourceData:= _
"'Lim inn Grunnlagsdata her!'!R1C1:R10598C27",
TableDestination:="", _
TableName:="Pivottabell1"
ActiveSheet.PivotTables("Pivottabell1").PivotField s
("PropertyNO").Subtotals = _
Array(False, False, False, False, False, False,
False, False, False, False, False, False)
ActiveSheet.PivotTables("Pivottabell1").PivotField s
("AccountNO").Subtotals = _
Array(False, False, False, False, False, False,
False, False, False, False, False, False)
ActiveSheet.PivotTables("Pivottabell1").PivotField s
("Account").Subtotals = _
Array(False, False, False, False, False, False,
False, False, False, False, False, False)
ActiveSheet.PivotTables("Pivottabell1").AddFields
RowFields:=Array("Property", _
"PropertyNO", "Acc.kl", "Acc.gr", "AccountNO"),
ColumnFields:="ColumnName", _
PageFields:="Portfolio"
With ActiveSheet.PivotTables
("Pivottabell1").PivotFields("Amount")
.Orientation = xlDataField
.Name = "Summer Amount"
.Function = xlSum
End With

Please advice! Thx!