VBA Excel - datum v kontingenční tabulce Vyřešeno

[Branscombe]

Ahoj všichni, mám kontingenční tabulku a pakliže chci přes VBA vybrat datum tak mi to nefunguje... Je problém ve formátu buňky obsahující datum nebo kde ??

Kód: Vybrat vše

Datum = Worksheets("Source").Range("C9")
ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Datum").CurrentPage = " & Datum & "


[Reklama]

[navstevnik]

Uved verzi Excelu a co se skryva pod "nefunguje" - vysledek neodpovida ocekavani, chyba ve vykonani makra,...
A vubec, pripoj prilohu se sesitem obsahujicim ukazku nefunkcnosti. Musis uznat, ze lze tezko nalezt pricinu, kdyz nejsou k dispozici zdrojova data.
PS. Neni vylouceno, ze postaci prevest datum na cislo: Datum = CLng(Worksheets("Source").Range("C9"))

[Branscombe]

Soubor v příloze ... Pracuji v Office 2007, ale soubor *.xlsm nejde přiložit jako příloha, tak to posílám ve starší verzi ...

[navstevnik]

Kontingencni tabulka v Ex2007 se ve vyberu poli odlisuje od nizsich verzi, kde vyber pole ve VBA je funkcni.
Beh prilozeneho makra v Ex2007 vyvolava chybu 1004 (a to i v pripade nove zaznamenaneho makra vyberu pole Datum v sestavene kontingencni tabulce).
Vi nekdo, co s tim? Jedna se ochybu VBA?

[Branscombe]

Stále nikdo neví ??

[mike007]

Branscombe: Dokument ve verzi 2007 zazipuj a hoď mi ho do SZ. Podívám se na to.

[mike007]

Něco jsem spatlal, ale nevím jestli data v kontingenční tabulce jsou OK a jestli to dělá to, co potřebuješ. Moc času nemám...
Mrkni a dej vědět.

První řádek v subrutině:
[syntax lang=vb]Datum = DateValue(Worksheets("Main").Range("B3"))[/syntax]

Poslední řádek v subrutině:
[syntax lang=vb]ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Datum").CurrentPage = Datum[/syntax]

[Branscombe]

Super, funguje ... Díky