Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivo Feldeigenschaften

Pivo Feldeigenschaften
31.03.2015 17:58:51
Merlin
Guten Abend zusammen,
wie kann ich die Feldeigenschaften der Pivo felder
Teilergebnisse auf Keine setzten ?
Viele Grüße, Merlin
Sub Pivot()
Dim Bereich As Range
Sheets("Übersicht").Activate
Set Bereich = ActiveSheet.UsedRange
Range(Bereich.Address).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
Bereich, TableDestination:="", TableName:="Pivot"
With ActiveSheet.PivotTables("Pivot")
.PivotFields("b").Orientation = xlRowField
.PivotFields("c").Orientation = xlRowField
.PivotFields("d").Orientation = xlRowField
.PivotFields("e").Orientation = xlRowField
.PivotFields("f").Orientation = xlRowField
.PivotFields("g").Orientation = xlRowField
.PivotFields("h").Orientation = xlRowField
.PivotFields("ij").Orientation = xlRowField
.PivotFields("k").Orientation = xlRowField
.PivotFields("l").Orientation = xlRowField
.PivotFields("m").Orientation = xlRowField
.PivotFields("n").Orientation = xlRowField
.AddDataField ActiveSheet.PivotTables("Pivot").PivotFields("o"), "Anzahl von o", xlCount
End With
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivo Feldeigenschaften
31.03.2015 18:52:00
Merlin
Guten Abend,
ich habe mein Problem mit dem makrorekorder lösen können.
Viele Grüße

Mit viel Pivo (russ 'Bier')...? ;-) Gruß owT
01.04.2015 01:10:47
Luc:-?
:-?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige