Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot VBA Problem

Forumthread: Pivot VBA Problem

Pivot VBA Problem
02.11.2005 13:43:08
Oliver
Hallo Excelgemeinde!
Wenn ich in Pivot Daten-Selektiere(Alles bzw. nur ein Item auswähle), dann formatiert er die Tabelle in Windeseile um. Das ganze wollte ich mit Comboboxen per VBA steuern. Doch jedesmal wenn er ein Item anwählt bzw. abwählt dauert es ganze 5 Sekunden. bei 51 Items wird jede Selektion zur Qual. Gibt es eine Möglichkeit da zu beschleunigen(Berechnung deaktivieren etc)? Anbei der Code.
Vielen Dank im voraus!
Gruß
Oliver
For i = 1 To Sheets("Quelldaten").PivotTables("PivotTable1").PivotFields("LAND").PivotItems.Count
If Sheets("Quelldaten").PivotTables("PivotTable1").PivotFields("LAND").PivotItems(i) ComboBox3.Value Then
Sheets("Quelldaten").PivotTables("PivotTable1").PivotFields("LAND").PivotItems(i).Visible = False
End If
next i

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Pivot VBA Problem
02.11.2005 14:29:07
Luschi
Hallo Oliver,
versuch es mal so: 
Dim n As Long, meinPivotField As PivotField
Set meinPivotField = Sheets("Quelldaten").PivotTables("PivotTable1").PivotFields("LAND")
With meinPivotField
n = .PivotItems.Count
For i = 1 To n
If .PivotItems(i).Name = ComboBox3.Value Then
.PivotItems(i).Visible = True
Else
.PivotItems(i).Visible = False
End If
Next i
End With
Set xPivotField = Nothing

Es wird zuerst ein Objekt von dem anzusprechenden Pivot-Feld gebildet und dann
in der Schleife alle Item-Einträge bis auf eines auf aufunsichtbar gestellt.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Pivot VBA Problem
03.11.2005 08:26:41
Oliver
Einen herzlichen Dank an Klein-Paris!
Durch Deine VBA-Stchreibweise ist der Code jetzt so schnell wie ich ihn mir vorgestellt habe.
Nochmals Danke, hast mir sehr geholfen!
Gruß
Oliver
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige