In einem Kalender soll der ausgewählte Projektzeitraum visualisiert werden.

Die Projekttage sind nachfolgend gelb dargestellt. Arbeitsfreie Zeiten grau und Feiertage Orange.
Zusätzlich heben sich die einzelnen Monate von einander ab.

Excel – Projektkalender – Preview	https://youtu.be/WGvI6GPeuRM
Excel – Projektkalender – Feiertage aus Outlook übernehmen – Teil 1	https://youtu.be/ABMvbA4RadM
Excel – Projektkalender – Arbeitstage auswählen – Teil 2	https://youtu.be/bvwCsOW8te4
Excel – Projektkalender – Kalender dynamisch aufbauen – Teil 3	https://youtu.be/X3EBCXgpTY8
Excel – Projektkalender – Bedingte Formatierung – Monatslinien – Teil 4	http://youtu.be/fWODm5wPydM
Excel – Projektkalender – Bedingte Formatierung – Projekttage – Teil 5	http://youtu.be/mronPMZiHD0
Excel – Projektkalender – VBA – Feiertage ausblenden – Teil 6	http://youtu.be/_8N5fBiz84M
Excel – Projektkalender – Bedingte Formatierung – Monate abwechselnd einfärben – Teil 7	https://youtu.be/K5x4shLNsts
Excel – Projektkalender – Bedingte Formatierung – Ferientage – Teil 8	https://youtu.be/CscxikTm0qU

Hier ist der VBA-Teil:

Option Explicit

Sub Ellipse1_Klicken()

With ActiveSheet
.Protect DrawingObjects:=False, Contents:=False
If .Shapes(„Oval 1“).TextFrame2.TextRange.Characters.Text = „>“ Then
.Columns(„A:G“).EntireColumn.Hidden = False
.Columns(„U:Z“).EntireColumn.Hidden = False
.Shapes(„Oval 1“).TextFrame2.TextRange.Characters.Text = „<“

Else

.Columns(„A:G“).EntireColumn.Hidden = True
.Columns(„U:Z“).EntireColumn.Hidden = True
.Shapes(„Oval 1“).TextFrame2.TextRange.Characters.Text = „>“

End If

.Range(„I1“).Select
.Protect DrawingObjects:=True, Contents:=True
End With

End Sub