Office: (Office 2010) Projekte Zeitübersicht Pivot-chart

Zweite Frage:

Das ganze Ding ist ja dynamisch und dashalb müssen sich natürlich in meinen Formular auch die Bezeichnungen dynamisch anpassen.

Ich habe also im Formularkopf ein Feld das =[Start] heißt und im Detailbereich darunter meine Einträge mit "X" für den Monat.

Wenn also [Start] mir den Wert 01.01.2013 gibt, und der nächste Monat somit der 01.02.2013 sein soll, wie muss ich dann das nächste Textfeld bezeichnen?

=[Start]+ DatAdd 1Monat(«Start») ?

 

Hallo!

Infinite Datumsangaben durch einen leeren Feldinhalt zu kennzeichnen ist nicht gut.
Dort sollte besser 31.12.9999 stehen.
Wolfgang

 

Hi ich habe folgen Code in SQL programmiert...

Code: [Auswählen]

SELECT MIN(Projekte.Startdatum) AS Anfang, DateSerial(Year([Anfang]),Month([Anfang])+0,1) AS B1, DateSerial(Year([Anfang]),Month([Anfang])+1,1) AS B2, DateSerial(Year([Anfang]),Month([Anfang])+2,1) AS B3, DateSerial(Year([Anfang]),Month([Anfang])+3,1) AS B4, DateSerial(Year([Anfang]),Month([Anfang])+4,1) AS B5, DateSerial(Year([Anfang]),Month([Anfang])+5,1) AS B6, DateSerial(Year([Anfang]),Month([Anfang])+6,1) AS B7, DateSerial(Year([Anfang]),Month([Anfang])+7,1) AS B8, DateSerial(Year([Anfang]),Month([Anfang])+8,1) AS B9, DateSerial(Year([Anfang]),Month([Anfang])+9,1) AS B10, DateSerial(Year([Anfang]),Month([Anfang])+10,1) AS B11, DateSerial(Year([Anfang]),Month([Anfang])+11,1) AS B12, DateSerial(Year([Anfang]),Month([Anfang])+12,1) AS B13, DateSerial(Year([Anfang]),Month([Anfang])+13,1) AS B14, DateSerial(Year([Anfang]),Month([Anfang])+14,1) AS B15, DateSerial(Year([Anfang]),Month([Anfang])+15,1) AS B16, DateSerial(Year([Anfang]),Month([Anfang])+16,1) AS B17, DateSerial(Year([Anfang]),Month([Anfang])+17,1) AS B18, DateSerial(Year([Anfang]),Month([Anfang])+18,1) AS B19, DateSerial(Year([Anfang]),Month([Anfang])+19,1) AS B20, DateSerial(Year([Anfang]),Month([Anfang])+20,1) AS B21, DateSerial(Year([Anfang]),Month([Anfang])+21,1) AS B22, DateSerial(Year([Anfang]),Month([Anfang])+22,1) AS B23, DateSerial(Year([Anfang]),Month([Anfang])+23,1) AS B24, DateSerial(Year([Anfang]),Month([Anfang])+24,1) AS B25, DateSerial(Year([Anfang]),Month([Anfang])+25,1) AS B26, DateSerial(Year([Anfang]),Month([Anfang])+26,1) AS B27, DateSerial(Year([Anfang]),Month([Anfang])+27,1) AS B28, DateSerial(Year([Anfang]),Month([Anfang])+28,1) AS B29, DateSerial(Year([Anfang]),Month([Anfang])+29,1) AS B30, DateSerial(Year([Anfang]),Month([Anfang])+30,1) AS B31, DateSerial(Year([Anfang]),Month([Anfang])+31,1) AS B32, DateSerial(Year([Anfang]),Month([Anfang])+32,1) AS B33, DateSerial(Year([Anfang]),Month([Anfang])+33,1) AS B34, DateSerial(Year([Anfang]),Month([Anfang])+34,1) AS B35, DateSerial(Year([Anfang]),Month([Anfang])+35,1) AS B36, MonthName(Month([B1]),True) & '. ' & Year([B1]) AS Tx1, MonthName(Month([B2]),True) & '. ' & Year([B2]) AS Tx2, MonthName(Month([B3]),True) & '. ' & Year([B3]) AS Tx3, MonthName(Month([B4]),True) & '. ' & Year([B4]) AS Tx4, MonthName(Month([B5]),True) & '. ' & Year([B5]) AS Tx5, MonthName(Month([B6]),True) & '. ' & Year([B6]) AS Tx6, MonthName(Month([B7]),True) & '. ' & Year([B7]) AS Tx7, MonthName(Month([B8]),True) & '. ' & Year([B8]) AS Tx8, MonthName(Month([B9]),True) & '. ' & Year([B9]) AS Tx9, MonthName(Month([B10]),True) & '. ' & Year([B10]) AS Tx10, MonthName(Month([B11]),True) & '. ' & Year([B11]) AS Tx11, MonthName(Month([B12]),True) & '. ' & Year([B12]) AS Tx12, MonthName(Month([B13]),True) & '. ' & Year([B13]) AS Tx13, MonthName(Month([B14]),True) & '. ' & Year([B14]) AS Tx14, MonthName(Month([B15]),True) & '. ' & Year([B15]) AS Tx15, MonthName(Month([B16]),True) & '. ' & Year([B16]) AS Tx16, MonthName(Month([B17]),True) & '. ' & Year([B17]) AS Tx17, MonthName(Month([B18]),True) & '. ' & Year([B18]) AS Tx18, MonthName(Month([B19]),True) & '. ' & Year([B19]) AS Tx19, MonthName(Month([B20]),True) & '. ' & Year([B20]) AS Tx20, MonthName(Month([B21]),True) & '. ' & Year([B21]) AS Tx21, MonthName(Month([B22]),True) & '. ' & Year([B22]) AS Tx22, MonthName(Month([B23]),True) & '. ' & Year([B23]) AS Tx23, MonthName(Month([B24]),True) & '. ' & Year([B24]) AS Tx24, MonthName(Month([B25]),True) & '. ' & Year([B25]) AS Tx25, MonthName(Month([B26]),True) & '. ' & Year([B26]) AS Tx26, MonthName(Month([B27]),True) & '. ' & Year([B27]) AS Tx27, MonthName(Month([B28]),True) & '. ' & Year([B28]) AS Tx28, MonthName(Month([B29]),True) & '. ' & Year([B29]) AS Tx29, MonthName(Month([B30]),True) & '. ' & Year([B30]) AS Tx30, MonthName(Month([B31]),True) & '. ' & Year([B31]) AS Tx31, MonthName(Month([B32]),True) & '. ' & Year([B32]) AS Tx32, MonthName(Month([B33]),True) & '. ' & Year([B33]) AS Tx33, MonthName(Month([B34]),True) & '. ' & Year([B34]) AS Tx34, MonthName(Month([B35]),True) & '. ' & Year([B35]) AS Tx35, MonthName(Month([B36]),True) & '. ' & Year([B36]) AS Tx36
FROM projekte;


... somit erhalte ich eine "nahezu Dynamische Ansicht" über 36 Monate in einer Tabelle welche mir einerseits die Datumsdaten in DD.MM.YYYY auswirft und zusätzlich dazu das gewünschte Textfeld in der Form Monat als mmm und das Jahr dahinter.

Meine Frage ist nun relativ bescheiden, ich habe die Spalten Tx1 bis Tx36 nun in meiner Kopfleiste für die eigentliche Timeline. Einer der Werte enthällt das aktuelle Datum in der Form "MMM. YYYY". Dieses Feld möchte ich nun in meinem Formular besonders "highlighten". Dazu fiel mir dass mit der Bedingten Formatierung ein. Habe da auch schon rumprobiert, aber ich komme nicht auf einen grünen Nenner.

Im Prinzip will ich, dass der wirkliche aktuelle Monat mit dem Textausdruck "MMM. YYYY" alle TX"?"-Felder abgeglichen wird und dass das eine Feld welches dem Wert entspricht farblich markiert wird...

Wie geht das? btw: Es handelt sich um ein Textfeld in einem Formular...

Lg. Nemo

 

Momentan versuche ich es so...

Monatsname(heute()) & ". " & Jahr(heute())

... geht aber nicht!

 

Monatsname(Monat(Datum());Wahr) & ". " & Jahr(Datum())

So geht das DANKE