Pivotdaten darstellen wenn Datum vorhanden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Franz,
erstmal danke für die Meldung.
Die Summierung soll über die Spalte des jeweiligen Datums erfolgen nicht über die Zeile.
In Spalte C sind unterschiedliche aber auch gleiche Daten, die pro Tag durch Pivot summiert werden sollen.
Ich habe die Bsp. Datei etwas erweiter https://www.herber.de/bbs/user/86057.xls
wo mein Problem hoffentlich sichtbarer wird und manuell den 05.06.2013 in die Pivot gezogen.
Dies soll eben durch ein Makro erfolgen, damit ich nicht alle Daten mit dem Datum einzeln in die Pivot ziehen muss.
Aus der 23 in Zelle U3 wird z.B. mal ein Datum 14.06.2013 und aus der 24 in Zelle V2 der 16.06.2013 u.s.w... die dann in der Pivot ersichtlich sein sollen.
Es gibt also keine gleichen Werte in Zeile 2
Ich hoffe es gibt eine Lösung
Vielen Dank im Voraus!
MFG André

Ich hab nur grad keine Zeit die zu schreiben.
Erstell mal die Pivot während du den Makrorecorder laufen lässt.
Dann analysiere den Code mal und versuch den mal bissl anzupassen...
Anbei mal ein Muster wie ich das einst gelöst hab
(theoretisch "nur" anpassen)
Hier wird ein Blatt IMC1 erstellt in das Dann eine Pivot IMC1 kommt.
Und verschiedene Spalten und Filter gesetzt
Soll auch nur ein Anhaltspunkt darstellen..
Grüße
Sub IMC1() ' IMC1 Dim LZeile As Long, LSpalte As Long, Alter As Integer Dim x As String Dim wks As Worksheet '"globale" Variable LZeile = Worksheets("Master").Cells(Rows.count, 1).End(xlUp).Row LSpalte = Worksheets("Master").Cells(1, Columns.count).End(xlToLeft).Column 'IMC1 'Variablen Festlegen x = "IMC1" ' Abfrage ob Blatt existiert For Each wks In Worksheets If wks.name = x Then Application.DisplayAlerts = False Worksheets(x).Delete Application.DisplayAlerts = True End If Next wks 'Blatt erstellen Sheets.Add after:=Worksheets(Worksheets.count) ActiveSheet.name = x ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Master!R1C1:R" & LZeile & "C" & LSpalte & "", Version:=xlPivotTableVersion14). _ CreatePivotTable _ TableDestination:="" & x & "!R3C1", TableName:=x, _ DefaultVersion:=xlPivotTableVersion14 'Zeilenbeschriftung With Worksheets(x).PivotTables(x).PivotFields("HFA-Name") .Orientation = xlRowField .Position = 1 End With 'Spalte Fälle Worksheets(x).PivotTables(x).AddDataField _ Worksheets(x).PivotTables(x).PivotFields("internes-Zeichen"), "Fälle", xlCount 'Spalte MVD Worksheets(x).PivotTables(x).AddDataField _ Worksheets(x).PivotTables(x).PivotFields("Verweildauer"), "MvD", xlSum With Worksheets(x).PivotTables(x).PivotFields("MvD") .Caption = "MvD" & vbCrLf & "[d]" .Function = xlAverage .NumberFormat = "0.00" End With ' Spalte Belegtage Worksheets(x).PivotTables(x).AddDataField _ Worksheets(x).PivotTables(x).PivotFields("Verweildauer"), "BT", xlSum With Worksheets(x).PivotTables(x).PivotFields("BT") .Caption = "BT" & vbCrLf & "[d]" .Function = xlSum .NumberFormat = "0" End With 'DRG Filter (KA) With Worksheets(x).PivotTables(x).PivotFields("DRG") .Orientation = xlPageField .Position = 1 .PivotItems("KA").Visible = False End With 'Filter Alter(>=85) With Worksheets(x).PivotTables(x).PivotFields("Alter (J)") .Orientation = xlPageField .Position = 1 On Error Resume Next For Alter = 0 To 150 If Alter >= 85 Then .PivotItems(CStr(Alter)).Visible = True Else .PivotItems(CStr(Alter)).Visible = False End If Next Alter End With 'Filter PCCL() With Worksheets(x).PivotTables(x).PivotFields("PCCL") .Orientation = xlPageField .Position = 1 End With 'Filter Verweildauer () With Worksheets(x).PivotTables(x).PivotFields("Verweildauer") .Orientation = xlPageField .Position = 1 End With End Sub

Beliebteste Forumthreads (12 Monate)

	I	J
23		Summe bis
24	C	13.06.2013
25	Test1	980
26	Test2	919
27	Test3	7

Pivotdaten darstellen wenn Datum vorhanden

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread