Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Unable to set the default property of the PivotItemClass!?!?
zurück: Zelle an das Ende einer Tabelle Kopieren und dann sortieren weiter: Makro beim n-ten Klicken in n-te Zeile Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Wurzelpeter
Gast


Verfasst am:
29. Jan 2009, 17:57
Rufname:

Unable to set the default property of the PivotItemClass!?!? - Unable to set the default property of the PivotItemClass!?!?

Nach oben
       Version: Office 2003

Nabend Leute!

Ich hab hier folgenden Code....

Code:
Function GetBQA() As Variant

Dim BQAValues(10, 4, 2) As Variant
Dim BQAMonth As String
Dim Area(4) As String

Area(0) = "(Alle)"
Area(1) = "FRA F/G2"
Area(2) = "FRA F/S1"
Area(3) = "ATL F/G3"
Area(4) = "SIN F/G4"

Dim Parents(10) As String
Parents(0) = "all AXT offices worldwide"
Parents(1) = "all AGIS offices worldwide"
Parents(2) = "all fgzA offices worldwide"
Parents(3) = "all  GF offices worldwide"
Parents(4) = "all EDITORS offices worldwide"
Parents(5) = "all HERSMANN offices worldwide"
Parents(6) = "all SICHER & WAGEN offices ww"
Parents(7) = "all NIP EXPRESS offices ww"
Parents(8) = "all ALPINA offices worldwide"
Parents(9) = "all LENKE offices worldwide"
Parents(10) = "all DTI offices worldwide"

'Open the BQA report:
Set BQAWB = Workbooks.Open(ThisWorkbook.Path & "\" & BQAFile)

'Set the actual month in the Pivot-Table
If Month < 10 Then
BQAMonth = "0" & Month
ActiveSheet.PivotTables("PivotTable1").PivotFields("Month").CurrentPage = BQAMonth
Else
ActiveSheet.PivotTables("PivotTable1").PivotFields("Month").CurrentPage = Month
End If

'For every customer:
For i = LBound(Kundennamen) To UBound(Kundennamen)

    'Set the "Parent" field in the Pivot table
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Parent").CurrentPage = Parents(i)
   
    'For every area:
    For j = LBound(Area) To UBound(Area)
   
        'Set the Area in the SL1 field in the Pivot table
        ActiveSheet.PivotTables("PivotTable1").PivotFields("SL1").CurrentPage = Area(j)
   
        'Read the 3 BQA-Values for the chosen customer and area and save it in the array
        BQAValues(i, j, 0) = BQAWB.Sheets("S1 Booking vs Actual").Range("G23").Value
        BQAValues(i, j, 1) = BQAWB.Sheets("S1 Booking vs Actual").Range("G25").Value
        BQAValues(i, j, 2) = BQAWB.Sheets("S1 Booking vs Actual").Range("G27").Value
   
    Next j
   
Next i

GetBQA = BQAValues

BQAWB.Close SaveChanges:=False

End Function


Bei diesem Teil kommt der Fehler "Unable to set the default property of the PivotItemClass - run time error '1004'....

'Set the Area in the SL1 field in the Pivot table
ActiveSheet.PivotTables("PivotTable1").PivotFields("SL1").CurrentPage = Area(j)


Kann mir da irgendjemand helfen warum der Fehler plötzlich auftritt?
Vielen Dank im Voraus...

Gruss
Wurzelpeter
Gast


Verfasst am:
29. Jan 2009, 18:14
Rufname:


AW: Unable to set the default property of the PivotItemClass - AW: Unable to set the default property of the PivotItemClass

Nach oben
       Version: Office 2003

Sorry Leutz... hat sich erledigt...
haben den fehler gefunden. Spracheinstellungen =)

schönen abend noch Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Summenprodukt Was ist das? bzw. what the f* is Summenprodukt 4 eligarl 105 04. Jun 2013, 14:15
slowboarder Summenprodukt Was ist das? bzw. what the f* is Summenprodukt
Keine neuen Beiträge Excel VBA (Makros): Set rng = Selection 10 poppi1984 206 22. März 2013, 16:31
poppi1984 Set rng = Selection
Keine neuen Beiträge Excel Formeln: DropDown default Wert 5 staychill 194 30. Nov 2012, 13:18
stachill DropDown default Wert
Keine neuen Beiträge Excel VBA (Makros): Set target 4 keinepeilung 190 29. Okt 2012, 15:29
slowboarder Set target
Keine neuen Beiträge Excel VBA (Makros): Set oPerson = meinWilhelm...??? O.o 7 SG ;-) 202 27. Aug 2012, 23:22
SG ;-) Set oPerson = meinWilhelm...??? O.o
Keine neuen Beiträge Excel VBA (Makros): Zugriff auf File Object Property innerhalb einer Collection 6 couchcamper 195 09. Aug 2012, 08:59
Isabelle :-) Zugriff auf File Object Property innerhalb einer Collection
Keine neuen Beiträge Excel VBA (Makros): VBA set = mehrere anweisungen 3 bommelkopf 500 06. Jun 2012, 07:18
bommelkopfg VBA set = mehrere anweisungen
Keine neuen Beiträge Excel VBA (Makros): Set Focus funktioniert nicht 21 bmwoholic 1631 25. Sep 2011, 21:23
bmwoholic Set Focus funktioniert nicht
Keine neuen Beiträge Excel VBA (Makros): Object variable or With block variable not set 7 Hilflos123 4143 22. Sep 2011, 06:53
raunzer Object variable or With block variable not set
Keine neuen Beiträge Excel VBA (Makros): Erforderlich oder nicht? ... Set wks = Nothing 4 Gast 918 02. Nov 2010, 17:38
Gast Erforderlich oder nicht? ... Set wks = Nothing
Keine neuen Beiträge Excel VBA (Makros): Set funktioniert nicht mit Verzeichnispfad? 3 Steffen Kuch 186 28. Okt 2010, 07:31
Steffen Kuch Set funktioniert nicht mit Verzeichnispfad?
Keine neuen Beiträge Excel VBA (Makros): Error 1004:unable to set the text property of the range clas 2 test85 499 27. Okt 2010, 18:24
test85 Error 1004:unable to set the text property of the range clas
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript