Datum Makro

[Franziii]

Hallo ihr Lieben,

ich habe eine Frage an euch. Ich selber bin noch nicht so die Excel Spezialistin, jetzt habe ich aber in der Arbeit einen Auftrag bekommen, den ich lösen soll.
Und zwar gibt es bei uns eine Bedarfsliste für die jeweils nächsten 12 Monate. Mit Hilfe einer Makroprogrammierung soll automatisch eine Pivot-Tabelle aus den Rohdaten erstellt werden. Jetzt ist es natürlich so, dass man quasi einen Monat weiterrutscht, wenn ihr versteht was ich meine.  In den Makros steht folgendes: PivotFields("2017-11") usw.
Im Dezember kommt dann natürlich eine Fehlermeldung, weil die Spalte 11-2017 nicht mehr vorhanden ist. Wie kann das behoben werden?

Danke für eure Hilfe und liebe Grüße!
Franzi

[losgehts]

Hallo Franzi,

mit Pivot-Tabellen in Verbindung mit VBA kenne ich mich nicht aus, aber vielleicht reichen dir schon die folgenden Infos:

Wenn du eine Variable vom Typ Date hast, kannst du mit
format(, "YYYY-MM") den String erzeugen. Beispiel:

Code:

Sub bspl1()
MsgBox Format(Now, "YYYY-MM")
End Sub

Folgendes könnte auch nützlich sein:
"now" liefert das aktuelle Datum und Uhrzeit als Date-Variable
"date" liefert das aktuelle Datum als Date-Variable

Year(date) liefert die aktuelle Jahreszahl als Integer
Month(date) liefert den aktuellen Monat als Integer
Year(date) liefert den aktuellen Tag als Integer

dateserial(Jahr, Monat, Tag) liefert das Datm als Date-Variable.

Ich könnte mir vorstellen, dass du damit schon zurecht kommst?

Grüße, Ulrich