Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Datum in Pivot filtern

VBA Datum in Pivot filtern
26.02.2018 10:36:25
Andre´
Hallo alle zusammen,
ich habe eine Tabelle und filter mir über mehrere Pivottable gewisse Daten.
Problem: ich möchte gern über VBA das Datum in der Pivot filtern z.B. den 02.02.2018
Dazu habe ich den Makrorekorder benutzt.
Lasse ich jetzt das Makro laufen so kommt eine Fehlermeldung:
Laufzeitfehler 1004 (Anwendungs- oder objektdefinierter Fehler)
Hier die Bsp. Datei: https://www.herber.de/bbs/user/120065.xlsm
Ich hoffe mir kann jemand weiter helfen.
Vielen Dank im Voraus!
MFG Andre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datum in Pivot filtern
26.02.2018 11:00:08
Sandra
Hallo Andre´,
Sub datumfiltern()
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Operator:= _
xlFilterValues, Criteria2:=Array(2, "2/1/2018")
End Sub
Gruß Sandra
AW: VBA Datum in Pivot filtern
26.02.2018 11:42:20
Andre´
Hallo Sandra,
danke für deinen Beitrag, aber ich meine die Pivottable die sich ab E1 befindet.
In F1 soll das Datum per VBA angesprochen werden.
MFG Andre´
AW: VBA Datum in Pivot filtern
26.02.2018 22:53:52
fcs
Hallo Andre,
leider finden exelintern bei der Verarbeitung von Pivotberichten via VBA teilweise Datenkonversionen ins US-Formt statt - aber natürlich mal wieder nicht konsequent.
Gruß
Franz 
Sub prcPivotPageName_Datum()
'Seite im Pivotbericht setzen wenn Datum in Quelle im Format TTT TT.MM.JJJJ
Dim Datum As Date, sDatum As String, pvTab As PivotTable
Datum = Range("B1")
Select Case VBA.Weekday(Datum, vbMonday)
Case 1:   sDatum = "Mon "
Case 2:   sDatum = "Tue "
Case 3:   sDatum = "Wed "
Case 4:   sDatum = "Thu "
Case 5:   sDatum = "Fri "
Case 6:   sDatum = "Sat "
Case 7:   sDatum = "Sun "
End Select
sDatum = sDatum & Format(Datum, "DD\/MM\/YYYY")
Sub prcPivotPageName_Datum()
'Seite im Pivotbericht setzen wenn Datum in Quelle im Format TTT TT.MM.JJJJ
Dim Datum As Date, sDatum As String
Datum = Range("B1")
Select Case VBA.Weekday(Datum, vbMonday)
Case 1:   sDatum = "Mon "
Case 2:   sDatum = "Tue "
Case 3:   sDatum = "Wed "
Case 4:   sDatum = "Thu "
Case 5:   sDatum = "Fri "
Case 6:   sDatum = "Sat "
Case 7:   sDatum = "Sun "
End Select
sDatum = sDatum & Format(Datum, "DD\/MM\/YYYY")
With ActiveSheet.PivotTables("PivotTable2")
.RefreshTable
.PivotFields("Datum").ClearAllFilters
.PivotFields("Datum").CurrentPage = sDatum
End With
End Sub
ActiveSheet.PivotTables("PivotTable2")
With pvTab
.RefreshTable
.PivotFields("Datum").ClearAllFilters
.PivotFields("Datum").CurrentPage = sDatum
End With
End Sub

Anzeige
AW: VBA Datum in Pivot filtern
27.02.2018 09:13:02
Andre´
Hallo Franz,
vielen Dank für die Lösung, es funktioniert wie gewünscht:-)
MFG Andre

310 Forumthreads zu ähnlichen Themen

Tabelle nach Anfangs und Enddatum filtern
Thomas

Hallo zusammen,
ich habe eine Frage, wie kann ich per VBA eine Tabelle nach Anfangs- und Enddatum filtern?
Vielen Dank im Voraus
Thomas
23.09.2008 09:50:53
Thread-ID: 1011635
5 Beiträge
Anzeige
Zeilen autom nach Werten d. Spalte C sortieren
obelix-xxl

Hallo,
ich bitte um Unterstützung bei der Lösung mittels Makro für nachfolgende Aufgabenstellung.
Im aktuellen Tabellenblatt "Raum 1" sind in der Spalte C einer jeden Zeile ganze Zahlen von 1 bis 30 eingetragen. Diese Zeilen sollen automatisch nach Eingabe des Wertes in Spalte C sortier...
02.10.2008 09:16:11
Thread-ID: 1013794
15 Beiträge
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Anzeige
Pivot-Tabelle sortiert falsch
Ernst

Hallo
Ich habe eine Tabelle, die 406 Datensätze beinhaltet. Diese Datensätze zeigen die von 8 Mitarbeitern für ein Projekt geleisteten Arbeitsstunden.
Innerhalb des betreff. Projektes wurden diese Stunden für insgesamt 14 Pläne und dort für insgesamt 59 Vorgänge geleistet.
Dementsp...
06.01.2009 15:28:37
Thread-ID: 1037258
5 Beiträge
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 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
4
1
14
3
1
4
2
1
3
16
2
2
1
9
4
3
5
4
3
1
1
2
1
2
2