Seit ich die Seiten über den Aufbau eines Kalenders erstellt habe, erreichen mich Anfragen, ob es nicht möglich ist mehr als einen Termin pro Tag darzustellen.
Hier nun ein Lösungsansatz dafür. Wenn man die Zellformatierung ein wenig modifiziert und den geänderten Abschnitt im Kalendermakro austauscht, können pro Tag zwei Termine dargestellt werden. Mehr ist allerdings nicht möglich, wenn der Halbjahreskalender auf eine DIN A 4 Seite passen und die Schrift einigermaßen lesbar sein soll.
So etwa sieht das Ergebnis aus:
Folgende Zellformatierungen habe ich vorgenommen:
|
 |
Der geänderte Bereich im Makro:
Cells(t, m + 1).Font.ColorIndex = 5 ' Farbe der Schrift = blau
If Len(Cells(t, m + 1)) > 1 Then ' Wenn Zelle mit Inhalt dann ...
Cells(t, m + 1) = Cells(t, m + 1) & Chr(10) _
& "Geb. " & namg(e) & " (" & alte(e) & ")" ' ... Inhalt + Name und Alter eintragen
Else: Cells(t, m + 1) = "Geb. " & namg(e) & " (" & alte(e) & ")" ' Nur Geburtstag
If Len(Cells(t, m + 1)) > 15 Then Cells(t, m + 1).Font.Size = 8 ' Schriftgröße ändern
End If
End If ' Ende des Programmteils
Der Bereich vor der Änderung:
Cells(t, m + 1).Font.ColorIndex = 5 ' Farbe der Schrift = blau
Cells(t, m + 1) = "Geb. " & namg(e) & " (" & alte(e) & ")" ' Name und Alter eintragen
End If ' Ende des Programmteils
Von der Änderung betroffen ist der Bereich zwischen den Linien. Die Zeile darüber und die Zeile darunter habe ich nur zur Verdeutlichung zugefügt. Bleibt zu erwähnen, das die Änderung bisher nur für die Einträge Feiertag und Geburtstag funktioniert. An weiteren Lösungsansätzen arbeite ich noch.