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

Pivotdatenauswahl automatisch

Forumthread: Pivotdatenauswahl automatisch

Pivotdatenauswahl automatisch
11.03.2008 14:20:00
Kerstin
Hallo liebes Forum,
ich habe ein Problem mit meiner Pivottabelle.
Ich mache eine Umsatzanalyse über 30 Tage, diese wird jeden Tag aktualisiert. Meine Auswertung liefert mir automatisch die Daten für das ganze Jahr, weil ich diese an anderer Stelle auch noch benötige.
Um immer die letzten 30 Tage zu sehen müsste ich jeden Tag die Daten im Zeilenfeld anpassen.
Meine Frage geht das auch automatisch, dass ich mittels VBA programmiere dass immer die letzten 30 Tage ausgewählt werden?
Am Besten dann auch noch die letzten 30 Arbeitstage, aber das ist erst einmal zweitrangig...
Anbei habe ich ein kleines Beispiel angehängt. Noch zu erwähnen ist, dass unter ein Datum auch mehrer Umsätze fallen können, nicht wie es bei Beispiel jetzt ist.
https://www.herber.de/bbs/user/50638.xls
Ich hoffe Ihr könnt mir weiterhelfen....
Viele Grüße
Kerstin

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivotdatenauswahl automatisch
12.03.2008 02:29:00
fcs
Hallo Kerstin,
ich hab mal mit Excel97 versucht dein Problem zu lösen.
Lösung 1: Die Daten werden mit einem Datumsbereich gruppiert, das hat bei mir funktiniert. Die Daten werden dann nach Monaten und Tagen gruppiert.
Lösung 2: Nachdem alle Einträge eingebledet sind werden die alten Einträge ausgeblendet.
Leider funktioniert das Einblenden der Einträge bei mir aus unbekanntem Grund in der Datei nicht.
Zeichne mit dem Makrorecorder unter Excel 2003 das Einblendne aller Zeilen für ein Pivot-Feld auf. ggf. kannst du dann den Code an passender Stelle anpassen.
Gruß
Franz

Sub PivotGruppierenLetzte30()
'Daten in Pivottabelle Gruppieren
'Gruppierng nach Monat-Tag für die letzten 30 Tage
Dim ws As Worksheet, PT As PivotTable
Set ws = Worksheets("Tabelle1")
'Datenbereich der Pivottabelle aktualisieren
Set PT = ActiveSheet.PivotTables(1)
PT.SourceData = "'" & ws.Name & "'!Z1S1:Z" & _
ws.Cells(ws.Rows.Count, 1).End(xlUp).Row & "S2"
PT.RefreshTable
PT.PivotSelect "Fakturadatum[All]", xlLabelOnly
Selection.Group Start:=(Date) - 30, End:=(Date), Periods:=Array(False, False, _
False, True, True, False, False)
PT.PivotFields("Monate").AutoSort xlDescending, "Monate"
Range("A1").Select
Set ws = Nothing: Set PT = Nothing
End Sub
Sub GruppierungAufheben()
ActiveSheet.PivotTables(1).PivotSelect "Fakturadatum[All]", _
xlLabelOnly
Selection.Ungroup
ActiveSheet.PivotTables(1).PivotSelect "", xlOrigin
End Sub
Sub PivotAusblendenAelter30()
' Datumsangaben älter 30 Tage ausblenden
Dim ws As Worksheet, PT As PivotTable, iI As Integer, PI As PivotItem, PF As PivotField
Set ws = Worksheets("Tabelle1")
Set PT = ActiveSheet.PivotTables(1)
'Datenbereich der Pivottabelle aktualisieren
PT.SourceData = "'" & ws.Name & "'!Z1S1:Z" & _
ws.Cells(ws.Rows.Count, 1).End(xlUp).Row & "S2"
PT.RefreshTable
Application.ScreenUpdating = False
Set PF = PT.PivotFields("Fakturadatum")
With PF
'Alle ausgeblendenten Werte anzeigen (funktioniert leider unter Excel 97 nicht)
For Each PI In .HiddenItems
PI.Visible = True
Next
'Alte Werte ausblenden
For Each PI In .VisibleItems
If CDate(PI.Name)


Anzeige
AW: Pivotdatenauswahl automatisch
12.03.2008 16:10:00
Kerstin
Hallo Franz,
tausend Dank für deine Hilfe... hat mir echt super weitergeholfen.
In meiner Testdatei funktioniert alles super!
Hab jetzt auch den Makro weitestgehend auf meine Orginaldatei anpassen können.
An einem scheitere ich allerdings mit meinem Verständnis für VBA:
Was passiert im ersten Sub (Zeile 7):
Selection.Group Start:=(Date) - 31, End:=(Date) - 1, Periods:=Array(False, False, _
False, True, True, False, False)
Bei diesem Periods:=Array....
Kann da leider gar nichts damit anfangen...
Kann mir jemand weiterhelfen. Wäre super.
Vielen Dank. Kerstin

Anzeige
AW: Pivotdatenauswahl automatisch
12.03.2008 16:40:43
fcs
Hallo Kirsten,
in Pivottabellen kann man Pivotfelder die nur Datum-/Zeitangaben enthalten zusätzlich speziell gruppieren, so dass die Daten entsprechend gruppiert dargestellt werden.
In der Zeile: 

Selection.Group Start:=(Date) - 30, End:=(Date), Periods:=Array(False, False, _
False, True, True, False, False)

wird mit dem Parameter Periods festgegelegt nach welchen Zeiträumen die Daten gruppiert werden sollen.
Im Array wird mit False oder True festgelegt welcher Zeitraum angewendet werden soll.
Array(Sekunde, Minute, Stunde, Tage, Monate, Quartale, Jahre).
In deinem Fall sind Tage und Monate auf True gesetzt.
Manuell geht es wie folgt:
Klicke das Feld "FakturaDatum" in der Pivot-Tab an.
Anschließend Menü Daten--Gruppierung/Gliederung--Gruppierung...
Im Dialog kannst du dann die Einstellungen machen.
Wichtig ist, das die Quelldaten der Pivot-Tab der Datumsspalte in allen Zeilen ausgefüllt sind und auch keine Leerzellen enthalten. Sonst funktioniert die Datumsgruppierung nicht.
Gruß
Franz

Anzeige
AW: Pivotdatenauswahl automatisch
12.03.2008 17:02:00
Kerstin
Vielen Dank, jetzt verstehe ich das...
Aber wegen den Leerzellen, dürfen die nur beim Manuellen nicht drin sein oder auch beim Makro?!
Ich hab bei meinen Quelldaten teilweise # drin, kann das der Grund sein dass der Makro nicht läuft?!
Bis jetzt wird eine neue Spalte in der Pivottabelle eingefügt und es wird eine Gruppierung vorgenommen, allerdings geht diese über die gesamten Fakturadaten und er selektiert nicht die einzelnen Monate und auch nicht die Bereiche kleiner 30 Tage.
Wäre super wenn du mir nochmals weiterhelfen kannst.
Viele Grüße Kerstin

Anzeige
AW: Pivotdatenauswahl automatisch
12.03.2008 17:11:00
Kerstin
Sorry hab vergessen die Frage auf offen zu stellen...........

AW: Pivotdatenauswahl automatisch
12.03.2008 18:18:49
fcs
Hallo Kirsten,
das #-Zeichen bereitet Probleme.
Das Gruppierungs-Makro liefert einfach kein Ergebnis mehr und das andere Makro bricht ab.
Damit das Gruppierungsmakro funktioniert müsstets du das #-Zeichen durch eine Zahl z.B. 0 oder auch durch den 1.1.1900 ersetzen.
Das 2. Makro kann man so anpassen, dass alle nicht Datumszellen ausgeblendet werden. Wegen der erforderlichen Fehlerbehandlung wird es etwas komplizierter.
Gruß
Franz

Sub PivotAusblendenAelter30()
' Datumsangaben älter 30 Tage ausblenden
Dim ws As Worksheet, PT As PivotTable, iI As Integer, PI As PivotItem, PF As PivotField
On Error GoTo Fehler
Set ws = Worksheets("Tabelle1")
Fehler = 2
Set PT = ActiveSheet.PivotTables(1)
Fehler = 0
'Datenbereich der Pivottabelle aktualisieren
PT.SourceData = "'" & ws.Name & "'!Z1S1:Z" & _
ws.Cells(ws.Rows.Count, 1).End(xlUp).Row & "S2"
PT.RefreshTable
Application.ScreenUpdating = False
Set PF = PT.PivotFields("Fakturadatum")
With PF
'Alle ausgeblendenten Werte anzeigen
For Each PI In .HiddenItems
Fehler = 1
PI.Visible = True
Fehler = 0
Next
'Alte Werte ausblenden
For Each PI In .VisibleItems
If IsDate(PI.Name) Then
If CDate(PI.Name)


Anzeige
;

Forumthreads zu verwandten Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Daten aus mehreren Dateien auslesen/anfüg
Ines

Hallo,
folgende Ausgangssituation. Ich habe ca. 70 Exceldateien, alle mit dem gleichen Tabellenaufbau. Alle befinden sich auch in einem Ordner. Die Ergebnisse auf den Tabellenblättern möchte ich in einem neuen Tabellenblatt zusammenfassen.
Die Tabellenblätter sind folgendermaßen aufgeba...
08.03.2009 18:42:10
Thread-ID: 1057929
5 Beiträge
Anzeige
Daten aus geschlossener Datei auslesen
Reinhardt

Hallo.
Mit der gegoogelten u.a Sub komme ich in meiner Aufgabenstellung fast schon klar. Meine Frage: Wie muß der Dateipfad geschrieben werden, damit er mir z.B. Das Tabellenblatt "Test" ausließt? Danke im voraus. Gruß Reinhardt Sub DatenImport() Dim rngTarget As Range Set rngTarget = R...
24.04.2009 13:34:00
Thread-ID: 1070948
2 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
Daten aus Homepage auslesen
Joachim

Hi,
ich habe eine Exceltabelle wo verschiedenen Listen hinterlegt sind. Per Makro greife ich auf die Listen zu. Diese Listen sind im Prinzip Daten, die ich aus einer Homepage runterhole, also natürlich per copy und paste.
ich hatte mit nun überlegt, es wäre natürlich um einiges leichter...
10.08.2009 21:29:50
Thread-ID: 1094875
4 Beiträge
mit SVerweis daten aus mysql auslesen
Timo

Nabend.... ich bin auf der Suche nach einer Möglichkeit. sql-daten ca. 2000 Datensätze via SVerweis in Excel auszugeben. ich will in der ersten zeile eine id eingeben und excel soll sich automatisch die Daten für die weiteren Felder aus der db holen. bisher mache ich es mit einer exceldatei und...
05.10.2009 17:35:11
Thread-ID: 1106927
2 Beiträge
Daten aus anderer Datei auslesen und eintragen | Herbers Excel-Forum
Bernd
Hallo Freaks,
ich suche seit heute 12 h nach einer Lösung im Archiv, bin aber nicht fündig geworden bzw. nicht in der Lage, das makro anzupassen.
Problem: aus einem Verzeichnis eine Datei aussuchen und aus zwei exakt benannten Blättern die Daten eines bestimmten Bereiches einlesen. Dabei ha...
24.01.2010 19:45:10
Thread-ID: 1132528
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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