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