Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1668to1672
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

Einträge eines PivotFilter nacheinander bearbeiten

Einträge eines PivotFilter nacheinander bearbeiten
21.01.2019 14:09:58
Jens
Hallo zusammen,
in einer Pivot soll jeder Eintrag (Ausnahme 0 und #NV) eines bestimmten Filters aufgerufen werden. Es soll ein bereits fertiggestelltes Makro folgen. Dann soll das Makro für den nächste Filtereintrag usw. laufen.
Wie kann ich das umsetzen?
BG Jens

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einträge eines PivotFilter nacheinander bearbeiten
23.01.2019 13:13:46
ChrisL
Hi Jens
Die Filterauswahl kannst du nicht direkt aufrufen.
Folgender Code liest ein Tabellenbereich in ein Array ein, sortiert die Daten und entfernt die Duplikate. Womöglich entspricht das Ergebnis der Filterauswahl.
Sub t()
Dim objArrLst As Object, Mein_Array As Variant, L As Long
Set objArrLst = CreateObject("System.collections.arraylist")
Mein_Array = Application.Transpose(Worksheets("Tabelle1").Range("A1:A10").Value) 'anpassen
For L = LBound(Mein_Array) To UBound(Mein_Array) - 1
If objArrLst.Contains(Mein_Array(L)) = False Then
objArrLst.Add Mein_Array(L)
End If
Next
Erase Mein_Array
With objArrLst
.Sort
Mein_Array = .ToArray
End With
Set objArrLst = Nothing
' Demo Ausgabe Resultat
For L = LBound(Mein_Array) To UBound(Mein_Array)
Debug.Print Mein_Array(L)
Next L
End Sub
Quelle: http://www.office-loesung.de/ftopic142856_0_0_asc.php
cu
Chris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige