Pivot

[danielhuszka]

Hallo zusammen


Ich benötige eure Hilfe, gewisse Daten auswerten zu können.
Die Datei im Anhang (Arbeitsmappe: Gesamteinheiten KW Auswertung).


Ziel damit:

Die Tagen (siehe Spalte B bis O bzw. Montag - Sonntag) pro Genossenschaft (siehe Spalte A - TourNr + Ortschaft) in einer Diagramm darstellen können (wenn möglich mit Filter-Optionen) um die einzelnen Tagen genauer anschauen können.

Pivot wäre da etwas?

Kann jemand mit ein konkretes Beispiel helfen?

Danke im Voraus

[Hydronaut]

Pivot wäre da etwas?

Nicht mit dieser Datenstruktur.

Du benötigst eine Datensatzliste.
Keine 53 Kreuztabellen untereinander mit verbundenen Zellen -> 3-faches No-Go.

[snb]

Dann sollten die Daten erst entpivotisiert werden müssen. Siehe Anhang

[danielhuszka]

Hoi snb


Danke für die Beispieldatei!


Wie hast du es nun geschafft? Wie kann ich "solche Datenreihen" entpivotisieren?

Danke für deine Hilfe 1000!


Mfg, Daniel

[Elex]

Hi

Mal paar Ideen und Ansätze.

  MGB Gesamtdaten 2019.xlsx (Größe: 425,08 KB / Downloads: 6)

Gruß Elex

[snb]

Verwende diesen Makro:

PHP-Code:

Sub M_snb()
Sheets.Add(, Sheets(Sheets.Count)).Name = "snb"

For Each it In Sheets
If Left(it.Name, 4) = "Tour" Then
it.Cells.UnMerge
With it.Cells(1).CurrentRegion
sn = .Offset(2).Resize(, .Columns.Count + 1)
sn = Application.Index(sn, Evaluate("row(1:" & UBound(sn) & ")"), Array(8, 1, 2, 3, 4, 6))
End With
sn(1, 1) = "Name"
For j = 2 To UBound(sn)
sn(j, 1) = it.Cells(1)
Next
Sheets("snb").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sn), UBound(sn, 2)) = sn
End If
Next

With Sheets("snb")
.Columns(2).SpecialCells(4).EntireRow.Delete
.Columns(1).Replace "Name", "", 1
.Cells(1, 1) = "Name"
.Columns(1).SpecialCells(4).EntireRow.Delete
End With

With ThisWorkbook.PivotCaches.Create(1, Sheets("snb").Cells(1).CurrentRegion)
With .CreatePivotTable(Sheets("snb").Cells(1, 10), "PivotTable_snb")
.PivotFields("KW").Orientation = 1
.PivotFields("Name").Orientation = 1

.CalculatedFields.Add "AN_sum", "='AN 5er' +'AN 4er'", True
.CalculatedFields.Add "KW_sum", "=BN +AN_sum", True
.AddDataField .PivotFields("AN_sum"), "AN_", xlSum
.AddDataField .PivotFields("BN"), "BN_", xlSum
.AddDataField .PivotFields("KW_sum"), "KW_", xlSum
End With
End With
End Sub