CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede stgas Nybegynder
28. juli 2004 - 22:24 Der er 3 kommentarer

Undersøg via makro, om værdi eksist. i 'pagefield' i pivottabel

Jeg har en makro som opdatere et regneark med værdier ved hjælp af opslag ud fra en pivottabel. Således sættes værdierne i pivottabellens pagesfields vha. nedenstående eksempel fra makroen:

ActiveSheet.PivotTables("Pivottable1").PivotFields("PROVIDER").CurrentPage = "SP-ASD"

Problemet opstår når min makro, ved nogle givne kriterier, IKKE finder værdien som jeg søger på ovenfor, altså "SP-ASD" i "PROVIDER"-pagefield.
Hvordan kan man gennemsøge "PROVIDER"-pagefield for om værdien eksistere og derved loope udenom, eller gøre noget andet fikst for at undgå at makroen stopper, bare fordi den ikke finder værdien ? On error... virker ikke her.
Avatar billede bak Seniormester
28. juli 2004 - 22:43 #1
hvilken excel version bruger du ?
Avatar billede stgas Nybegynder
28. juli 2004 - 22:56 #2
Excel 2002 SP-2
Avatar billede bak Seniormester
28. juli 2004 - 23:25 #3
prøv at teste med denne funktion umiddelbart før.
Giver resultatet True hvis elementet findes og False hvis ikke
stName er det der søges efter ("SP-ASD")
test= ItemFound("SP-ASD")


Function ItemFound(stName) As Boolean
Dim pi As PivotItem
With ActiveSheet.PivotTables("Pivottable1").PivotFields("PROVIDER")
  For Each pi In .PivotItems
    If pi.Value = stName Then
        ItemFound = True
        Exit Function
    End If
  Next
  End With
ItemFound = False
End Function
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Makro kode Af djsimonsen i Excel 1 09/08/202415:03 09/08/202415:12
Hent en værdi fra en fil til en anden hvis kriterie er opfyldt Af Danny R i Excel 1 09/08/202412:21 09/08/202412:50
Pivot automatisk filtrering Af djsimonsen i Excel 2 09/08/202410:48 09/08/202412:39
Opslags-funktion, der søger tekst forskellig fra øvrig tekst Af anedi i Excel 6 08/08/202415:03 11/08/202420:44
Spring celle over i excel ark Af carstenlc i Excel 1 08/08/202409:04 08/08/202410:11
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 20:35 Falsk advarsel fra Windows Defender Af valby i Windows
I dag 18:36 login problemer via google Af jcr18 i E-mail
I dag 13:41 Denne app kan ikke køre på din pc Af mo- i Word
I går 17:15 Køb af IPad Af nico i iOS, iPhone & iPad
I går 16:45 Cromecast til Samsung tv Af Betina i Fjernsyn & projektorer
White papers
Flere white papers »


Premium
Teaser billede
Danske hjemmesider høster data i stor stil: Disse 68 hjemmesider har fået straks-påbud fra Digitaliseringsstyrelsen
Læs mere »
Alvorlig sårbarhed hos SAP giver hackere adgang til kundernes systemer: "Angriberen kan kompromittere systemet fuldt ud"
Netcompany-aktien buldrer i vejret efter regnskab: Derfor går det så godt ifølge André Rogaczewski
Patch nu: Microsoft lapper 90 sikkerhedshuller og seks aktivt udnyttede sårbarheder
Se alle »
Computerworld
Teaser billede
Prøvekørt: Den smukke Polestar 4 er en spøjs elbil man let bliver forelsket i
Læs mere »
Apple på vej med sin mindste computer nogensinde
Efter 11 år er det slut for Google Chromecast: Snart sidste udkald for at sikre sig den billige enhed
Google sigter højt med sin nye streaming-satsning: Mød Google TV Streamer
Se alle »
CIO
Teaser billede
It-leverandør står over for millionbøde efter ransomware-angreb: Lykkedes ikke med at beskytte vigtige oplysninger
Læs mere »
IBM’s mainframe-forretning har fået comeback
Virksomheder står over for store it-omkostninger: Mere end hver 10. pc kan ikke køre Windows 11
Patch nu: Microsoft lapper 90 sikkerhedshuller og seks aktivt udnyttede sårbarheder
Se alle »
Job & Karriere
Teaser billede
Efter 12 år er NNIT's hovedkvarter i Søborg nu ryddet og tomt - alle arbejder hjemme: "Det er med et vist vemod"
Læs mere »
KMD-direktør forlader selskabet: Det skal hun nu
Dansk top-profil trækker sig fra Microsoft: Skal være direktør i TDC Erhverv
IBM Danmark skifter ud i sin øverste ledelse - her er den nye direktion
Se alle »
White paper
Teaser billede
Vejen væk fra WAN: Sådan skifter du til en moderne infrastruktur
Læs mere »
Guide: Sådan udvikler du en moderne netværksstrategi
Sådan høster du forretningsfordelene ved Internet of Things
Rapport kortlægger de 13 bedste muligheder for at sætte turbo på din cloud computing
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »