Älteste Datum im Monat

Hallo zusammen,

ich arbeite gerade an einen Pivot Chart welches mir den Verlauf von Lagerbeständen ausgeben soll. Herausforderung besteht darin, dass die Datengrundlage täglich den aktuellen IST-Stand hält und Pivot die Summe bildet.

Heißt, jeder neue Datensatz wird im Ergebnis aufsummiert, was somit den falschen IST-Stand widerspiegelt.

Um dies richtig darzustellen, habe ich bisher manuell das letzte Datum im abgelaufenen Monat bzw. das aktuelle Datum aus dem aktuellen Monat, als Filter gesetzt.

Da die manuelle Anpassung manchmal in Vergessenheit geriet, möchte ich gern das Ganze etwas vereinfachen bzw. automatisieren.

Nach meinen Recherchen im Forum gibt es aktuell keine Möglichkeit, in einem Pivot Table ausschließlich Werte statt Summen anzeigen zu lassen, richtig!?

Für mein Beispiel habe ich gelesen, mit einer Hilfsspalte zu arbeiten, jedoch scheitere ich da an der Formel, was zu meiner zweite Frage führt.

In Spalte A:A sind Datumswerte, welche sich doppeln. In Spalte B:B möchte ich gern, ausgehend von Zeileneintrag in Spalte A, des älteste Datum passend zum Monat des Ausgangsdatum.

Bsp: Januar 2023 würde mit der Formel Monatsende den 31.01.2023 ausgeben, jedoch kann es sein, dass in Spalte A:A das letzte Datum der 28.01.2023 welches ich somit benötige.

Wer kann mir bei der Formel weiterhelfen oder bei der Einstellung des Pivot-Table?

https://www.herber.de/bbs/user/162727.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Befüllung() Dim LO As ListObject Dim LR As ListRow Dim R, C 'Tabelle als Objekt erfassen Set LO = Range("Tabelle1").Parent.ListObjects("Tabelle1") 'Alle Zeilen löschen (es bleibt immer eine Zeile sichtbar) Do While LO.ListRows.Count > 0 LO.ListRows(1).Delete Loop 'Tabelle befüllen (4 Zeilen, 2 Spalten) For R = 1 To 4 Set LR = LO.ListRows.Add For C = 1 To 2 LR.Range(C) = "R" & R & "C" & C Next Next End Sub

Sub älteste() Dim Dic Dim Z Dim Schlüssel Set Dic = CreateObject("Scripting.Dictionary") With Worksheets(1) 'Älteste sammeln For Each Z In Range(.Range("A2"), .Cells(Rows.Count, 1).End(xlUp)) Schlüssel = Format(CDate(Z.Value), "YYYY-MM") Dic(Schlüssel) = WorksheetFunction.Max(Dic(Schlüssel), CLng(Z.Value)) Next 'Älteste markieren For Each Z In Range(.Range("A2"), .Cells(Rows.Count, 1).End(xlUp)) Schlüssel = Format(CDate(Z.Value), "YYYY-MM") If Dic(Schlüssel) = CLng(Z.Value) Then Z.Offset(, 1) = "Älteste in " & Schlüssel Next End With End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Älteste Datum im Monat

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread