Listenbereich in Pivottabelle

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


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Listenbereich in Pivottabelle
von: Olafinho
Geschrieben am: 10.07.2002 - 12:04:04

Wie kann ich den Listenbereich einer Pivottabelle im Nachhinein ändern, ohne mit Namen zu arbeiten? Wo speichert Excel den Bezugsbreich der Pivottabelle?

nach oben   nach unten

Re: Listenbereich in Pivottabelle
von: Hans W Hofmann
Geschrieben am: 10.07.2002 - 12:54:42

ICh weiß zwar nicht genau auf was Du hinaus willst, aber zeichne doch die Erstellung einer Pivottabelle mit dem Makrorecorder auf. In dem Code kannst Du so ziemlich alles ablesen...


Gruß HW


nach oben   nach unten

Re: Listenbereich in Pivottabelle
von: Otto
Geschrieben am: 10.07.2002 - 14:27:33

Hallo Olafinho,

Vielleicht hilft Dir das weiter:

Option Explicit

Sub PivotGrunddaten()
   Dim strGrunddatenAlt As String  
   Dim strGrunddatenNeu As String  
   Dim wksPivotGrund As Worksheet  
   
   Set wksPivotGrund = _
    Workbooks("Pivotgrundzahlen.xls").Worksheets("Mitarb")
   strGrunddatenAlt = ActiveSheet.PivotTables("PivotOrt").SourceData
   With wksPivotGrund
      strGrunddatenNeu = .Range(.Cells(1, 1), .Cells(500, 33)). _
       Address(RowAbsolute:=True, ColumnAbsolute:=True, _
       ReferenceStyle:=xlR1C1, External:=True)  
   End With  
   MsgBox "Die Grunddaten waren: " & strGrunddatenAlt & vbCrLf & _
    "Sie werden gesetzt auf: " & strGrunddatenNeu
   ActiveSheet.PivotTables("PivotOrt").SourceData = strGrunddatenNeu
End Sub  

Gruß Otto

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Vertauschen der Werte zweier markierter Zellen"