Ich habe eine Arbeitsplanung erstellt pro Monat ein Tabellenblatt. Dabei ist die Zeile C3-AG3 das Datum.
z.B. Zelle C3 ist der 1. des Monats
Zelle D3 ist der 2. des Monats usw.
Nun selektioniere ich aus einer Access-Agenda die Daten mit
Terminen, z.B der 11.Juni und der 14 Juni sowie der 30 Juni.
Diese Felder sollen in der Tabelle mit verschieden Farben eingefärbt werden.
Leider gelang es mir bis heute nur eine Farbe zu verwenden.
Veillicht hats Du ja eine Ahnung wie ich verschieden Farbe bekommen kann. Als Beispiel siehst Du unten meine Programmierung
Private Sub Agenda()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
' rs.Open "SELECT * FROM Agenda"
rs.Open "SELECT *, Format([Datum],'yyyy') AS Ausdr2 From Agenda WHERE (((Format([Datum],'mmmm'))='" & TxtMonat & "') AND ((Format([Datum],'yyyy'))=" & TxtJahr & "));"
Do Until rs.EOF
XL.Workbooks("Vorlage.xls").Sheets("Monat").Cells(Day(rs.Fields("Datum")))(2, 3).Interior.ColorIndex = 44
rs.MoveNext
Loop
rs.Close
End Sub
Besten Dank für Dein mitdenken und Deine Hilfe.
Gruss Mark