Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot-Zeilenbeschriftung über Tabelle selektieren

Pivot-Zeilenbeschriftung über Tabelle selektieren
Hans
Hallo Zusammen,
in einer Pivottable habe ich in der ersten Spalte "Zeilenbeschriftung" eine Auflistung von Artikelnummern. Im zugehörigen PullDown-Menü kann ich einzeln markieren, welche Artikelnummern in der Auswertung verwendet werden sollen, bzw. die nicht benötigten abwählen.
Nun möchte ich die einzelnen Artikel, die ich nicht haben möchte in der Auswertung nicht alle von Hand wegklicken müssen, sondern möchte eine Spalte eines anderen Tabellenblatts angeben, in der alle Artikelnummern bereits aufgelistet sind, die abgewählt werden sollen oder besser, es sollen alle Artikelnummern selektiert werden, die nicht in der Spalte eines anderen Tabellenblatts stehen.
Welche Möglichkeit gibt es dazu?
Freundliche Grüße
Hans

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Pivot-Zeilenbeschriftung über Tabelle selektieren
11.04.2012 15:23:33
fcs
Hallo Hans,
das geht nur per Makro.
Nachfolgend ein Beispiel, das du bezüglch Tabellennamen und Feld-Name anpassen muss.
Das Makro fügst du im VBA-Editor entweder in einem allgemeinen Modul der Datei ein oder in deiner persönlichen Makroarbeitsmappe.
Gruß
Franz 
'Erstellt unter Excel 2010
Sub Pivot_ArtikelNichtListen()
Dim wksPivot As Worksheet
Dim pvTab As PivotTable, pvField As PivotField
Dim wksNicht As Worksheet
Dim ZeileNicht As Long, varNicht As Variant
On Error GoTo Fehler
Set wksPivot = ActiveSheet
Set wksNicht = Worksheets("Nicht_in_Pivot")
Set pvTab = wksPivot.PivotTables(1)
Set pvField = pvTab.PivotFields("Artikel-Nr")
Application.ScreenUpdating = False
pvField.ClearAllFilters
With wksNicht
'Artikelnummern in Spalte A des Tabellenblatts "Nicht_in_Pivot" in Pivot ausblenden
For ZeileNicht = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
varNicht = .Cells(ZeileNicht, 1).Text
pvField.PivotItems(varNicht).Visible = False
NextItem:
Next
End With
Application.ScreenUpdating = True
Fehler:
With Err
Select Case .Number
Case 0 'Alles ok
Case 1004
Resume NextItem
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Pivot-Zeilenbeschriftung über Tabelle selektieren
12.04.2012 12:33:13
Hans
Hallo Franz,
Vielen Dank, das Makro läuft hervorragend.
Da ich keine VBA-Kenntnisse habe, noch diese Frage: Ist das Makro so geschrieben, das es ausschließlich in der Pivottable läuft, die ich gerade mit anklicken ausgewählt habe?
Hans
AW: Pivot-Zeilenbeschriftung über Tabelle selektieren
12.04.2012 22:10:44
fcs
Hallo Hans,
das Makro ist so gestrickt, dass immer die 1. Pivottabelle im gerade aktiven Blatt bearbeitet wird.
Das wird in der folgenden Zeile festgelegt: 
  Set wksPivot = ActiveSheet

Gruß
Franz

300 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
10
2