Just nu i M3-nätverket
Gå till innehåll

Anropa variabel i textsträng för användning i pivottabell


Johan1111

Rekommendera Poster

Hej!

 

 

Jag spelade in ett makro för att byta datum i en pivottabell men det vägrar att fungera. Jag missar något basic här, kan någon se?

 

Det måste ju ha att göra med att jag anropar variabeln felaktigt. Skriver jag in ett datum i "textformat" istället för "manad" så fungerar det strålande,

 

klistrade in den koden nedanför.

 

Vore väldigt tacksam för hjälp....

 

Sub Bytamanad()

Makro

 

Dim manad As String

manad = "2013-02-28"

ActiveSheet.PivotTables("Pivottabell24").PivotFields( _

"[Period].[Period].[Period]").ClearAllFilters

ActiveSheet.PivotTables("Pivottabell24").PivotFields( _

"[Period].[Period].[Period]").CurrentPageName = _

"[Period].[Period].&[manad]"

 

End Sub

 

 

Och här är den fungerande.

 

Sub Makro2()

'

' Makro2 Makro

'

'

ActiveSheet.PivotTables("Pivottabell24").PivotFields( _

"[Period].[Period].[Period]").ClearAllFilters

ActiveSheet.PivotTables("Pivottabell24").PivotFields( _

"[Period].[Period].[Period]").CurrentPageName = _

"[Period].[Period].&[2013-02-28]"

End Sub

 

 

 

 

Länk till kommentar
Dela på andra webbplatser

Ove Söderlund

Raden:

ActiveSheet.PivotTables("Pivottabell24").PivotFields( _
"[Period].[Period].[Period]").CurrentPageName = _
"[Period].[Period].&[manad]"

 

Ska nog ändras till:

ActiveSheet.PivotTables("Pivottabell24").PivotFields( _
"[Period].[Period].[Period]").CurrentPageName = _
"[Period].[Period].&[" & manad & "]"

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...