Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einträge eines PivotFilter nacheinander bearbeiten

Forumthread: 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
Anzeige

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)

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