Kristinho1978
Gebruiker
- Lid geworden
- 2 jul 2015
- Berichten
- 96
Beste allemaal,
Ik heb een draaitabel in kolom A. De waarden in deze draaitabel hebben allemaal een 'inspringing'. De lengte hiervan heb ik bepaald m.b.v. een zelfgemaakte VBA-functie genaamd 'indenture':
Function indenture(r As Range) As Integer
indenture = r.IndentLevel
End Function
Als ik vervolgens de draaitabel refresh gaat alles goed, echter als ik het refreshen van de draaitabel in een macro opneem...
Range("A5").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
...geeft de indentureformule in kolom B foutmeldingen (#VALUE!). Waarschijnlijk komt dit doordat ik de indenturefunctie in VBA moet omzetten van Function naar Sub ofwel doordat ik de functie op e.o.a. manier in de macro moet opnemen. Maar hoe doe ik dat?
Alvast bedankt voor de tips!
Kris
Ik heb een draaitabel in kolom A. De waarden in deze draaitabel hebben allemaal een 'inspringing'. De lengte hiervan heb ik bepaald m.b.v. een zelfgemaakte VBA-functie genaamd 'indenture':
Function indenture(r As Range) As Integer
indenture = r.IndentLevel
End Function
Als ik vervolgens de draaitabel refresh gaat alles goed, echter als ik het refreshen van de draaitabel in een macro opneem...
Range("A5").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
...geeft de indentureformule in kolom B foutmeldingen (#VALUE!). Waarschijnlijk komt dit doordat ik de indenturefunctie in VBA moet omzetten van Function naar Sub ofwel doordat ik de functie op e.o.a. manier in de macro moet opnemen. Maar hoe doe ik dat?
Alvast bedankt voor de tips!
Kris