Pivot Select (VBA)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label


Excel-Version: 2000
  

Re: Pivot Select (VBA)

von: Otto
Geschrieben am: 15.04.2002 - 16:38:08


Hallo Monika,

ich mach das so:

Sub PivotBunt()
   ActiveSheet.PivotTables("PivotOrt").PivotFields("Ort"). _
    DataRange.Interior.ColorIndex = 19  
   ActiveSheet.PivotTables("PivotOrt").PivotFields("Geschlecht"). _
    DataRange.Interior.ColorIndex = 19  
End Sub  

Gruß Otto

  

Re: Pivot Select (VBA)

von: Monika Weber
Geschrieben am: 15.04.2002 - 17:06:41


Hallo Otto

DataRange ist also das gesuchte Schlüssel-Wort!

Ich danke dir von ganzem Herzen!
Du hast mir aus der Klemme geholfen!

Vielen lieben Dank!
Es liebs Grüessli
Monika

Re: Pivot Select (VBA)

von: Monika Weber
Geschrieben am: 15.04.2002 - 18:57:56


Hallo Otto

Vielleicht kannst du mir ja nochmals weiterhelfen ... oder jemand anders.

Dank deiner Hilfe weiss ich jetzt, dass ich mit "DataRange" die Spalten- und Zeilenüberschriften ansprechen kann.

Aus der Objektbibliothek habe ich noch rausgefunden, dass "LabelRange" für die Schältflächen steht.

Zu den folgenden Bereichen hab ich aber nichts gefunden:
- Nur Datenbereich (xlDataOnly)
- Leerzellen (xlBlanks)
- Titel und Daten (xlDataAndLabel)

Das letzte Anliegen (dann geb ich mich zufrieden) ist noch das Select beim Sortieren wegzubekommen:


Sub Pivot_Spalte_Sortieren_Aufsteigend()
   'On Error Resume Next
   Sheets(1).PivotTables(1).PivotSelect "Kunde", xlButton
   Selection.Sort Order1:=xlAscending, _
                  Type:=xlSortLabels, _
                  OrderCustom:=1, _
                  Orientation:=xlTopToBottom
End Sub

Wenn auch nicht alle der offenen Punkte beantwortet werden können ...
ich bin für jede Hilfe sehr dankbar.

Besten Dank!

Es liebs Grüessli
Monika

Re: Pivot Select (VBA)

von: Otto
Geschrieben am: 15.04.2002 - 21:40:56


Hallo Monika,

führ Dir das mal schrittweise zu Gemüte:

Sub PivotBunt()
   Dim wks As Worksheet  
   
   Set wks = ActiveSheet
   wks.PivotTables("PivotOrt").PivotFields("Ort").DataRange.Sort _
    Order1:=xlDescending, Type:=xlSortLabels, OrderCustom:=1, _
    Orientation:=xlTopToBottom    
   wks.PivotTables("PivotOrt").PivotFields("Ort"). _
    DataRange.Interior.ColorIndex = 19  
   wks.PivotTables("PivotOrt").PivotFields("Geschlecht"). _
    DataRange.Interior.ColorIndex = 20  
   wks.PivotTables("PivotOrt"). _
    DataBodyRange.Interior.ColorIndex = 21  
   wks.PivotTables("PivotOrt"). _
    DataLabelRange.Interior.ColorIndex = 22  
   wks.PivotTables("PivotOrt").PivotFields("Anzahl - Nachname"). _
    DataRange.Interior.ColorIndex = 23  
End Sub  
zu xlBlanks habe ich im Moment keine Idee

Gruß Otto

  

Re: Pivot Select (VBA) BITTE NUR EIN FORUM!!!

von: Johan
Geschrieben am: 15.04.2002 - 22:42:35


Bitte nur ein Forum ,
oder fragst du mal Hajo was er dazu sagt.
Mit dem doppelten Posting in den Foren ist das so ein Problem, wird der Beitrag in mehreren Foren gleichzeitig gepostet arbeiten mehrere Helfer gleichzeitig an der Lösung. Sollten nun mehrer Helfer sich mit der Beantwortung und Lösungssuche befassen arbeitet nur einer an der engültigen Lösung und die anderen für den Papierkorb. Bei Helfern kostet es Zeit und es machen alle diese Arbeit kostenlos. Und ich sehe es als nicht Achtung der Arbeit der Helfer an, wenn die Frage gleichzeitig in mehreren Foren gestellt wird. Sinn und Zweck des Forums ist es aber ein geben und nehmen. Wenn in einem gewissen Abstand nicht Minuten in anderen Foren gepostet wird hat kein was dagegen.

  

Re: Pivot Select (VBA)

von: Monika Weber
Geschrieben am: 16.04.2002 - 06:39:32


Hallo Otto

Nochmals ein herzliches Dankeschön!
Jetzt sieht es so einfach aus :-) ... aber ich bin trotzdem nicht drauf gekommen!

Es liebs Grüessli
Monika

Re: Pivot Select (VBA) BITTE NUR EIN FORUM!!!

von: Monika Weber
Geschrieben am: 16.04.2002 - 13:20:28


Hallo Johan

Ich weiss, darum hab ich ja auch darauf hingewiesen, dass ich bereits woanders gepostet habe!
Da ich ein eigenes Forum betreibe kenne ich dieses Ärgernis zur genüge.
Das Problem war leider sehr eilig ... daher meine Ungeduld.

Danke für's Verständnis.
Es liebs Grüessli
Monika


www.jumper.ch


nach unten

Betrifft: Pivot Select (VBA)
von: Monika Weber
Geschrieben am: 15.04.2002 - 14:37:06

Hallo Leute

Ich habe diese Frage zwar bereits vor ca. 3 Std. in einem anderen Forum gestellt.
Leider bis jetzt ohne Rückmeldung.

Da die Sache sehr eilt, erlaube ich mir, die Frage hier nochmals zu stellen in der Hoffnung auf eine schnelle Antwort.

Hier also die Frage:

Kennt sich jemand mit VBA für Pivot-Tabellen aus?

Wie kriege ich hier das "Select" weg?
Ich möchte die Farbe direkt zuordnen, ohne vorher zu Selektieren.


Sub Formatieren_Datenbereich()
ActiveSheet.PivotTables(1).PivotSelect "Kunde", xlDataOnly
Selection.Interior.ColorIndex = 19
ActiveSheet.PivotTables(1).PivotSelect "Getränk", xlDataOnly
Selection.Interior.ColorIndex = 19
End Sub

Danke für Hilfe.

Es liebs Grüessli
Monika

www.jumper.ch





 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Pivot Select (VBA)"