fout 91: waarom?

[arjoderoon]

ik heb onderstaande macro's in een module staan:

Sub VorigePagina()
Dim i As Integer

i = ActiveSheet.Index

If i - 1 = 3 Then
Sheets(i + 1).Select
Else
Sheets(i - 1).Select


End If

End Sub
Sub VolgendePagina()
Dim i As Integer

i = ActiveSheet.Index

If i + 1 > 5 Then
Sheets(i - 1).Select
Else
Sheets(i + 1).Select


End If


End Sub
Sub Printsheets()

ActiveSheet.PrintOut



End Sub
Sub RefreshPivotTables()

Application.ScreenUpdating = False

  Dim pt As PivotTable
  Dim ws As Worksheet
  Set ws = ActiveSheet

  Call NITRO.RefreshDataAllWorksheets
  
  For Each p In ThisWorkbook.PivotCaches
    p.Refresh
    
  Next
  
  For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
                    pt.RefreshTable
        Next pt
     
Next ws

    
End Sub

als ik het bestand open (dubbelklikken) krijg ik een error: fout 91: objectvariabele of blokvariabele 'with' is niet ingesteld.

Iemand die mij kan helpen hiermee en mij kan vertellen hoe ik dat op kan lossen?

Ik heb al gezocht en gelezen dat er set gebruikt moest worden. maar waar moet ik dat nog doen? bij de print macro?

ik vraag mij ook af of de fout door bovenstaande veroorzaakt wordt. ik heb een aantal verborgen bladen waar een hoop data op staat die ook gebruik maken van vba. als ik eerst nitro open (invoegtoepassing binnen excel) en van daaruit het bestand open is er niets aan de hand.

verder krijg ik als ik afsluit ook iedere keer deze error:

Probleemhandtekening:
  Gebeurtenisnaam van probleem:	APPCRASH
  Naam van de toepassing:	EXCEL.EXE
  Versie van toepassing:	14.0.6126.5003
  Tijdstempel van toepassing:	505b0834
  Naam van foutmodule:	MSVBVM60.DLL
  Versie van foutmodule:	6.0.98.15
  Tijdstempel van foutmodule:	4a5bda6c
  Uitzonderingscode:	c0000005
  Uitzonderingsmarge:	000ca40b
  Versie van besturingssysteem:	6.1.7601.2.1.0.16.7
  Landinstelling-id:	1043

Aanvullende informatie over dit probleem:
  LCID:	1043
  skulcid:	1043

geen idee wat ik hier mee kan.

wie kan er helpen?

 

[HSV]

Hallo,

Welke lijn wordt geel gemarkeerd?

Eén: Als activesheet blad één is, krijg je dus sheets(i -1).select: (i-1) = 0; fout 9
Twee: Waar is de code.....Call NITRO.RefreshDataAllWorksheets
Drie: Als bladen verborgen zijn geeft dit fout 1004.
Vier: Het ligt niet aan je printmacro.

 

[arjoderoon]

beste harry,

Bedankt.

een heb ik opgelost. Daar had ik nog niet naar gekeken inderdaad.
twee: wat bedoel je precies met die vraag?
Drie: ik heb verborgen bladen.

los van deze: ik heb nu een fout 1004. Als ik foutopsporing doe krijg ik een gele lijn bij:

Application.ScreenUpdating = False

  Dim pt As PivotTable
  Dim ws As Worksheet
  Set ws = ActiveSheet

  Call NITRO.RefreshDataAllWorksheets
  
  For Each p In ThisWorkbook.PivotCaches
 [i][b]   p.Refresh[/b][/i]

 

[arjoderoon]

dit zijn de macro's die ik nu heb:

Sub VorigePagina()
Dim i As Integer

i = ActiveSheet.Index

If i - 1 = 0 Then
Sheets(i + 4).Select
Else
Sheets(i - 1).Select


End If

End Sub
---------------
Sub VolgendePagina()
Dim i As Integer

i = ActiveSheet.Index

If i + 1 > 5 Then
Sheets(i - 4).Select
Else
Sheets(i + 1).Select


End If


End Sub
---------------
Sub Printsheets()

ActiveSheet.PrintOut



End Sub
---------------
Sub RefreshPivotTables()

Application.ScreenUpdating = False

  Dim pt As PivotTable
  Dim p As PivotCaches
  Dim ws As Worksheet
  Set ws = ActiveSheet

  Call NITRO.RefreshDataAllWorksheets
  
  For Each p In ThisWorkbook.PivotCaches
    p.Refresh
    
  Next
  
  For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
                    pt.RefreshTable
        Next pt
     
Next ws

    
End Sub

waarbij de fout nog steeds bestaat binnen de laatste macro: refreshpivottables()

en als ik er nu naar kijk lijkt het ook alsof ik dingen dubbel doe, namelijk pivotcache verversen en vervolgens ook alle pivottables nog verversen.

Of zie ik dit nu verkeerd?

 

[HSV]

Private Sub Workbook_Open()
   ThisWorkbook.RefreshAll
End Sub