Hallo VBA Profis, 

ich habe eine Frage zum Dateserial

Dim intTag As Integer
   For intTag = 1 To Day(DateSerial(Year(Date), Month(Date) + 1, 0))
      cells(ActiveSheet.cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Format(intTag, "ddd")
      cells(ActiveSheet.cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), Month(Date), intTag)
   Next intTag

Mit dem Code werden die ja die Anzahl der Tage es aktuellen Monats z.B. Spalte A "So" und Spalte B "01.08.2018"

Jetzt brächte ich aber am besten nicht den aktuellen Monat sondern den vergangenen Monat, da ich auf dieser Grundlage später im gleichen Makro noch nach Werten für das Jeweilige Datum suche. Aber die werte für den letzten Tag im Juni werden erst am ersten Tag im August eingetragen, deshalb möchte ich am liebsten den letzten Monat erstellen und suchen lassen anstatt den aktuellen. 

Kann mit da jemand helfen? 

Grüße, 

Dieter