Office: (Office 2010) Jahrestabelle automatisch erstellen

Hallo,
@jobee

wird so etwas nicht täglich erfasst, das gibt es doch bestimmt mehrfach je Monat.

Der Verdacht auf ein falsches Datenmodell verstärkt sich.

 

\@Ohrkester: Deine Rechnereien haben mit dem Thema des Threads nichts zu tun. Ich hatte das Now() nur ins Spiel gebracht, weil offensichtlich ein Datum in drei Tabellen "normalisiert" werden sollte (zumindest schien es so), und da der Date-Datentyp neben Datum auch Zeitanteile beinhaltet, verwies ich nur auf die logische Konsequenz. Eine Umsetzung in diese Richtung halte ich allerdings für fragwürdig.

@jobee:
Code:

- Beim Zusammensetzen muss man beachten, ob man im SQL-String ist oder außerhalb. Der Formatausdruck ist außerhalb, daher sind nach normaler VBA-Syntax Doublequotes zu verwenden.
- Der SQL-String muss innerhalb der For-Next-Schleife definiert werden, weil nur so das variable i integriert werden kann. Die Auswertung von i erfolgt im Moment des Stringzusammensetzens.

Bei strSQL vor der Schleife wird für i der Initialwert 0 eingesetzt und nachfolgend nicht geändert.

Das Ganze kann man über die ergänzte Debug-Anweisung nachvollziehen.

 

Mit einer Hilfstabelle T999 a la SQL ist leicht (1) - Hilfstabellen bräuchte man keine Schleife, und die SQL-Anweisung würde etwas übersichtlicher, weil keine äußeren Variablen (oben Laufvariable i) benötigt werden:
Code:

- Hier ist nebenbei die Formatanweisung innerhalb des SQL-Strings, daher sind die ursprünglichen DoubleQuotes abzuändern, z.B. über Ersatz mit einfachen Quotes.

- Wie bereits oben vermerkt, würde ich Datumsformate (Jahreszahl, Monatszahl, Monatsname) statt in die Stammdatentabelle in eine Hilfs-Kalendertabelle schreiben und beide Tabellen dann über das Datum verknüpfen (live bei Bedarf, ohne Beziehung).