macht es ggf. Sinn beim Klick auf eines der drei Objekte die jeweils anderen auf Weiß zu setzen, unabhängig welche Farbe sie zuvor hatten? Bei einer Ampel (Statusampel) kann ja nur gleichzeitig eine Farbe aktiv sein.

Andersformuliert: Keine Abfrage auf den bisherigen Farbstatus, sondern rot färben und die beiden anderen weiß

ActiveSheet.Shapes.Range(Array("Oval 1")).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveSheet.Shapes.Range(Array("Oval 2")).Fill.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes.Range(Array("Oval 3")).Fill.ForeColor.RGB = RGB(255, 255, 255)

den Rest brauchst Du vermutlich gar nicht an Einstellungen, wenn es einfach nur rot, gelb, grün bzw. weiß sein soll.
In meinem Beispiel heißen die Objekte eben Oval 1 - 3, musst Du bei Dir entsprechend anpassen.

http://excel-inn.de/ dort Diagramme -> stufen- oder treppendiagramm.

Ich bin kein Diagramm-"Mensch", die Sache scheint aber nur so kompliziert zu lösen zu sein wie da beschrieben. Ggf. kann man die Hilfstabelle mit Formeln verbessert erstellen, die Fummelei mit dem Diagramm bleibt aber

Neben dem bereits genannten Tipp mit Duplikate entfernen, Makro oder evtl komplexen Formellösung würde mir noch eine Pivottabelle einfallen. Einfach nur die Spalte mit den Einträgen zu Zeilen übernehmen ergibt die Liste wie gewünscht 

Es kommt darauf an, welches Level gefragt ist bzgl. der VBA Kenntnisse und ob das sich nur auf Excel bezieht oder auf das gesamte Officepaket.

Wenn jemand gesucht wird, der in der Lage ist in Excel ein einfaches Makro zu stricken (bspw. das Laden von Daten aus externer Quelle anstoßen und Pivottabellen u.ä. automatisiert zu aktualisieren oder das Beliebte Spiel: Datensätze kopieren/löschen) dann kann man sich das schon in kurzer Zeit beibringen: Grundlagen verstehen und die Lücken per Google schließen. Letztlich habe ich VBA auch gelernt, als ich es gebraucht habe und nicht auf der grünen Wiese.
Einstieg: http://www.online-excel.de/excel/grusel_vba.php?f=6

Man kann mit VBA über simple Makros hinaus natürlich komplexe Anwendungen bauen. Wenn so etwas gefragt ist, wirst Du nicht glücklich werden.

Wie steht es denn um Deine allgemeinen Excelkenntnisse oder ist das im dem Job gar nicht gefragt?

die Brille ist nicht "film-gebunden" sofern die gleiche Technik verwendet wird:
https://de.wikipedia.org/wiki/3D-Film

Wenn Du die bspw. im Cinestar gekauft hast, kannst Du sie da auch wiederverwenden.

nur mit Makro worksheet_change....

Du musst das aber noch etwas konkreter Formulieren: Welche Zellen sollen überwacht werden, wirklich alle?? Wo soll das Datum eingetragen werden, denn zumindest diese Spalte muss man ausschließen, sonst gibt es eine Endlosschleife (Zeile geändert -> Makro startet und trägt Datum ein -> das ist wiederum eine Änderung, Makro läuft wieder und so endlos weiter....)

Datum nur eintragen, wenn etwas erstmals gefüllt wird oder auch bei einer Änderung einer bereits gefüllten Zelle?

ich kenne keine außer der mühsamen

=zählenwenn(Januar!A6:Z6;"k")+zählenwenn(Februar!A6:Z6;"k")....

Sonst halt per Makrofunktion, falls das in Betracht kommt.

https://de.wikipedia.org/wiki/P%C3%B6keln hier beschrieben die antibakterielle Funktion von Nitrit und die Wirkung bzw. Rotfärbung

Wenn Dir die Haltbarkeit egal ist, würde ich es mal auf einen Versuch ankommen lassen. Geschmacklich ist Zucker schon aus guten Grund drin und auch die Optik (Farbe) wird leiden, wenn Du nur Kochsalz nimmst.

range("A1").value=i

wenn Du es kürzer machen willst, kannst Du die Count Eigenschaft verwenden, dann entfällt auch die for-/next schleife

range("A1").value=ActiveSheet.Comments.Count

Die Erweiterung braucht vielleicht wirklich nur zwei *

=WENNFEHLER(INDEX($A$2:$Z$4400;VERGLEICH("*"&$AC$4&"*";$A$2:$A$4400;0);VERGLEICH(AE$2;$A$1:$Z$1;0));"Gib in AC4 einen Wort ein!")

Dann wird aber standardmäßig nach Wortteil gesucht. Entweder zwei Ausgaben der Suche mit exaktem und dann Wortteiltreffer oder zumindest eine Prüfung, ob Du noch eindeutige Ergebnisse hast:

=WENN(ZÄHLENWENN(A2:A4400;"*"&AC4&"*")>1;"Kein eindeutiger Treffer!";"")

Den Rest der Anforderungen verstehe ich vermutlich noch nicht richtig. AC5 könnte irgendwo in der Zeile stehen oder kennt man irgendwie die Spalte? Wenn das irgendwo in der Zeile auftaucht, fällt mir ad hoc nur eine Hilfsspalte ein, die man abfragen kann.

bspw. in AB

=VERGLEICH($AC$5;A1:Z1;0)

Die Logik, dass Excel dann weitersuchen soll, bekommt man mit Formeln so nicht hin. Da gibt es entweder einen Treffer, der alle Bedingungen erfüllt oder nicht.

Verstehe ich es richtig, dass es eine Suche mit zwei Parametern ist?

{=VERGLEICH("*"&AC4&"*"&AC5;A2:A4400&AB2:AB4400;0)} als Matrixformel

würde die Zeilennummer liefern für Teiltreffer AC4 und AC5 in der Zeile (wobei eben die Hilfsspalte abgefragt würde)

=UND(B$5>=SVERWEIS(B$5;Tabelle1!$E$2:$E$3;1;WAHR);B$5<=SVERWEIS(B$5;Tabelle1!$E$2:$F$3;2;WAHR))

Wenn das Tabellenblatt mit Feiertagen und Ferien nicht Tabelle1 heißt, musst Du das noch anpassen - wenn weitere Ferieneinträge kommen auch den Bereich, der bislang E2:F3 ist

Wichtig ist, dass die Ferien hinsichtlich Datum aufsteigend sortiert sind, sonst funktioniert der sverweis mit ungefährem Treffer nicht.

Alternative Formel:

=SUMMENPRODUKT((Tabelle1!$E$2:$E$2<=B$5)*(Tabelle1!$F$2:$F$2>=B$5))=1

Da sollte die Reihenfolge egal sein und wäre daher ratsamer.
Die erste Variante kam mir irgendwie zuerst in den Sinn, darum steht sie trotzdem hier.

Zellen kannst Du in zwei Weisen ansprechen:
Range("A1") oder cells(1,1). Bei cells ist zu beachten, dass erst Zeile, dann Spalte genannt wird, quasi andersrum als bei Formeln.

Eine Zelle hat diverse Eigenschaften (Schriftfarbe, Rahmen etc.) - Du möchtest den Wert verändern:

Range("A1").value=... oder cells(1,1).value=...

Um noch das Tabellenblatt zu berücksichtigen:
Sheets("Tabelle2").Range("B2").value=

Zum Rechnen:
Bei nur zwei Zellen kannst Du diese einfach zusammenzählen. Sonst gäbe es noch die Summenfunktion in VBA worksheetfunction.sum

Sheets("Tabelle2").Range("B2").value=sheets("Tabelle1").Range("B3").value+sheets("Tabelle1").Range("B4").value

sheets("Tabelle2").range("B2").value=WorksheetFunction.Sum(Sheets("Tabelle1").Range("B3:B4").Value)

Zählenwenn liefert Dir die Anzahl, Du willst aber ja eine Summe.

Das geht z.B. auf die Art, wenn Deine Tätigkeitsliste sich nur auf ein Jahr bezieht, dann reicht der Vergleich des Monats aus.

=SUMMENPRODUKT((MONAT(A6:A11)=MONAT(9))*(C6:C11))

Statt direkt die 9 für September in die Formel zu schreiben, kann man mit der richtigen Formatierung auch die Zelle in F6 (die Monatsnamen) einbeziehen. Dazu muss in F6 etc. aber statt dem Wort ein richtiges Datum stehen, also statt September 01.09.2016. Zellformatierung auf benutzerdefiniert und dort MMMM
dann wird auch September angezeigt, der Inhalt ist aber ein richtiges Datum, mit dem man rechnen kann.

Um die Formel für die anderen Monate kopieren zu können, ohne sie anpassen zu müssen, noch die Zeilen fixieren:

=SUMMENPRODUKT((MONAT(A$6:A$11)=MONAT(F6))*(C$6:C$11))

bei Du den Bereich so erweitern solltest, dass die gesamte Liste inkl. künftiger Einträge abgedeckt ist.

Trivial ist das nicht. Ich habe was gebastelt, allerdings auf Basis einer Datei, die alt, neu und das zusammengeführte Ergebnis in jeweils getrennten Tabellenblättern enthält. Das sollte grundsätzlich auch zwischen drei Exceldateien gehen, ist aber fummelig, gerade beim Ausprobieren. Ich würde es ehrlich gesagt weiterhin in einer Datei erledigen - wenn das manuelle Kopieren nicht tragfähig ist, kann man mit VBA auch die Tabelleninhalte in einer Datei zusammenkopieren bzw. über eine Datenverbindung reinziehen.

Was zumindest für mich mit meinen Kenntnissen nicht zu lösen ist, ist die Anforderung einen unterschiedlichen Inhalt auf Buchstabenebene zu markieren. Ich habe auf die Schnelle auch keine Umsetzung in VBA im Internet gefunden. Ab der ersten Abweichung mit einem Buchstaben mehr oder weniger reicht es nicht mehr aus einfach Stelle für Stelle zu vergleichen. Ich habe für einen ersten Wurf das Verfahren hier geklaut:

http://www.herber.de/forum/archiv/1260to1264/1260531_Textvergleich_mit_Markierung_der_Unterschiede.html

Die Lösung für die Formatierungen gefällt mir irgendwie noch nicht, scheint nach meinen Tests aber zumindest zu funktionieren.

Sub zusammenstellen()
Dim alt, neu, ergebnis, vergleich1, vergleich2 As String
alt = "Alt" 'name des tabellenblatts mit den alten einträgen
neu = "Neu" ' name tabblatt neue einträge
ergebnis = "Ergebnis" 'name tabblatt ergebnisse der zusammenführung
Dim i, j, k As Long
k = 1
'zunächst das tabellenblatt alt durchgehen
For i = 1 To Sheets(alt).Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets(neu).Range("A:A"), Sheets(alt).Cells(i, 1).Value) = 0 Then 'wenn nicht im tabellenblatt neu gefunden
Sheets(ergebnis).Cells(k, 1).Value = Sheets(alt).Cells(i, 1).Value
Sheets(ergebnis).Cells(k, 2).Value = Sheets(alt).Cells(i, 2).Value
Sheets(ergebnis).Cells(k, 1).Font.Strikethrough = True
Sheets(ergebnis).Cells(k, 1).Font.Color = vbred
Sheets(ergebnis).Cells(k, 2).Font.Strikethrough = True
Sheets(ergebnis).Cells(k, 2).Font.Color = vbred
Else
'für die einträge aus "alt", die in "neu" enthalten sind prüfen ob der inhalt der 2. spalte auch gleich ist
For j = 1 To Sheets(neu).Cells(Rows.Count, 1).End(xlUp).Row
If Sheets(alt).Cells(i, 1).Value = Sheets(neu).Cells(j, 1).Value Then
Sheets(ergebnis).Cells(k, 1).Value = Sheets(neu).Cells(j, 1).Value
Sheets(ergebnis).Cells(k, 2).Value = Sheets(neu).Cells(j, 2).Value
If Sheets(alt).Cells(i, 2).Value = Sheets(neu).Cells(j, 2).Value Then 'wenn gleich:
Sheets(ergebnis).Cells(k, 1).Font.Color = vbBlack
Sheets(ergebnis).Cells(k, 2).Font.Color = vbBlack
Else 'wenn anderer inhalt in der 2. Spalte:
Sheets(ergebnis).Cells(k, 1).Font.Color = vbRed
Sheets(ergebnis).Cells(k, 2).Font.Color = vbRed
' hier die notdürftige lösung um die unterschiede zu markieren: http://www.herber.de/forum/archiv/1260to1264/1260531_Textvergleich_mit_Markierung_der_Unterschiede.html
 If Len(Sheets(alt).Cells(i, 2).Value) > Len(Sheets(ergebnis).Cells(k, 2).Value) Then
          txtlen = Len(Sheets(alt).Cells(i, 2).Value)
              Else
          txtlen = Len(Sheets(ergebnis).Cells(k, 2).Value)
      End If
      m = 1
For l = 2 To txtlen
              vergleich1 = Mid(Sheets(alt).Cells(i, 2).Value, m, l)
              vergleich2 = Mid(Sheets(ergebnis).Cells(k, 2).Value, m, l)
              If vergleich1 = vergleich2 Then
                 Sheets(ergebnis).Cells(k, 2).Characters(m, l).Font.Color = vbBlack
              End If
          m = m + 1
      Next
End If
Else
End If
Next j
End If
k = k + 1
Next i
'die neuen Einträge noch ergänzen, d.h. die nicht auf tabellenblatt "alt" stehen
For j = 1 To Sheets(neu).Cells(Rows.Count, 1).End(xlUp).Row 'tabelle "neu" durchgehen
If WorksheetFunction.CountIf(Sheets(alt).Range("A:A"), Sheets(neu).Cells(j, 1).Value) = 0 Then 'prüfen ob auf tab. "alt" vorhanden
Sheets(ergebnis).Cells(k, 1).Value = Sheets(neu).Cells(j, 1).Value
Sheets(ergebnis).Cells(k, 2).Value = Sheets(neu).Cells(j, 2).Value
Sheets(ergebnis).Cells(k, 1).Font.Color = vbRed
Sheets(ergebnis).Cells(k, 2).Font.Color = vbRed
k = k + 1
End If
Next j

End Sub

Vielleicht gibt es noch eine einfachere Lösung, ich bin das mit adresse angegangen

=INDIREKT("tabelle1!"&ADRESSE($D$3;SPALTE(A1);1;1))

Ja, geht nur mit VBA, aber: Verbundene Zellen sind ein Graus! Nicht nur beim Filtern oder Kopieren, sondern auch wenn Du einen neuen Eintrag machst. Reicht dann nicht einfach die Zeile zu kopieren, sondern auch die verbundene Zelle muss erweitert werden.

Alternative1: Daten gruppieren (unter Ribbon Daten), d.h. wenn es optisch gewünscht ist eine Zeile nur für die Veranstaltung (ohne Teilnehmer) und darunter eben die Zeilen mit den Teilnehmen gruppieren. Wenn Du gruppieren noch nicht kennst: Mit dem kleinen Kreuz unten rechts beim Auswahlpunkt Gruppieren kann man in den Einstellungen ändern, wie die Gruppierung erstellt wird, d.h. ob sie oben oder unten aufklappt. Der Standard, unten, ist aus meiner Sicht unlogisch)

Alternative2: Du kannst die Teilnehmer natürlich auch in eine Zelle schreiben bzw. von VBA da reinschreiben lassen. Dann ist allerdings die Auswertung auf Teilnehmer wiederum deutlich erschwert.

Sind es bei der tatsächlichen Anwendung mehr Daten als im Beispiel, denn bei dieser Anzahl lohnt sich kein Makro

Ich würde es mit VBA und UserForm angehen. Da ich die Aufgabenstellung selbst spannend finde habe ich etwas gebastelt. Vieles kannst Du direkt übernehmen, es wird aber sicherlich dennoch notwendig sein, dass Du Dich für Anpassungen mit VBA auseinandersetzt.

Du brauchst: Drei Tabellenblätter
Start - einfach nur um die Userform aufrufen zu können, ggf. sonst noch Infos draufschreiben
Ergebnisse: Protokollieren der Eingaben
Fragen: Der Flexibilität wegen würde ich die Fragen und Antwortmöglichkeiten nicht im Code direkt eingeben, sondern dynamisch auslesen. Vom Aufbau her: Erste Zeile die Frage, die nächsten die Auswahloptionen. Ich gehe hier von max 4 Möglichkeiten aus, lässt sich aber erweitern. Gibt es zu einer Frage weniger Antwortmöglichkeiten als die Maximalanzahl wird der RadioButton ausgeblendet. Die Logik ist im Code hinterlegt (sub datensetzen)

Die Tabellenblätter Ergebnisse und Fragen kannst Du ausblenden, das braucht keine sehen bzw. sollte ungeprüft auch keiner ändern.

Unter Ribbon Entwicklertools eine Userform erstellen und ein Modul anlegen

Userform, s. Bild:
Ich habe eine einfache Lösung gebastelt: Ein Anzeigefeld (Label) für die Fragen, 4 Optionbutton für die Antworten, 2 Button: 1x weiter zur nächsten Frage und 1x Löschen der Antworten

Ins Modul:

'zwei globale Variablen:
Public click As Integer 'zählt die Fragen durch
Public zeile As Long 'die Zeile in der die Ergebnisse dokumentiert werden

Sub start() 'das Makro mit dem Button auf Tabellenblatt Start verbinden
click = 1
Call datensetzen
UserForm1.Show
End Sub

Sub datensetzen() 'lädt Frage und Antwortoptionen bzw. setzt die Beschriftungen in der Userform
Dim i As Integer
UserForm1.Label1.Caption = Sheets("Fragen").Cells(1, click).Value
For i = 1 To 4
UserForm1.Controls("OptionButton" & i).Caption = Sheets("Fragen").Cells(i + 1, click).Value
UserForm1.Controls("OptionButton" & i).Value = False
If Sheets("Fragen").Cells(i + 1, click).Value = "" Then UserForm1.Controls("OptionButton" & i).Visible = False Else UserForm1.Controls("OptionButton" & i).Visible = True
Next
End Sub

Sub ende() 'nach der letzten Frage und bei Abbruch Optionbutton ausblenden
click = 0
UserForm1.Label1.Caption = "Vielen Dank für die Teilnahme!"
UserForm1.OptionButton1.Visible = False
UserForm1.OptionButton2.Visible = False
UserForm1.OptionButton3.Visible = False
UserForm1.OptionButton4.Visible = False
UserForm1.CommandButton1.Caption = "Neustart"
UserForm1.CommandButton2.Enabled = False 'damit man nicht das fertige Ergebnis löschen kann

End Sub

in den Code zur Userform:

'Nur bei einem neuen Fragebogen notwendig: Werte und Beschriftung initialisieren
If click = 0 Then
UserForm1.CommandButton1.Caption = "Nächste Frage"
click = 1
Call datensetzen
Exit Sub
End If

' ausgewählten Optionbutton ermitteln
Dim myControl As Control
Dim auswahl As String
For Each myControl In UserForm1.Controls
If TypeName(myControl) = "OptionButton" Then
myControl.Visible = True
If myControl.Value = True Then auswahl = myControl.Caption
End If
Next

'bei der ersten Frage die letzte verwendete Zeile ermitteln. Zeitstempel in die nächste Zeile setzen
If click = 1 Then
zeile = Sheets("Ergebnisse").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Ergebnisse").Cells(zeile, click).Value = Now()
UserForm1.CommandButton2.Enabled = True
End If

'bei jeder weiteren Frage das Ergebnis protokollieren
Sheets("Ergebnisse").Cells(zeile, click + 1).Value = auswahl
click = click + 1
Call datensetzen

'nach der letzten Frage
If click = 4 Then Call ende
End Sub

Private Sub CommandButton2_Click()
Rows(zeile).Delete
Call ende
End Sub

Etwas Bastelarbeit hast Du damit schon, es reichen aber wenige Formeln und bedingte Formatierungen aus, das meiste sind normale Zellformatierungen.

Annahme: In A1 steht das Jahr

Spalte A ist der jeweilige Tag des Montag
für den jeweils Monatsersten =datum(a1;1;1) Das fettgedruckte ist der Monat, der muss für jede Monatsspalte natürlich angepasst werden.
Zellformatierung benutzerdefiniert: TT

Ab dem 2. Tag eines jeden Monats: Wenn der erste Tag für Januar bspw. in A3 steht, dann wäre A4 einfach =A3+1
Sonderfall Februar: Für den 29. stattdessen
=WENN(MONAT(E30+1)=MONAT(E30);E30+1;"")
-> E30 ist bei mir die Zeile mit dem 28.02

Spalte B ist, wenn man es genau machen will wie im Bild, nur der Wochentag. Das geht mit der Zellformatierung. Benutzerdefiniert und dort: TTT
Der Inhalt ist einfach =A3, d.h. den Wert von Spalte A übernehmen.

Spalte C mit Kalenderwoche: ="KW "&KALENDERWOCHE(A3;21)

Zu den Formatierungen:
Spalte B und C bekommen zunächst die Standardfarbe für Wochentage. Die Bereiche mit den Inhalten auch für die anderen Monate markieren. Dann neue Regel für bedingte Formatierung und dort die Formel:
=WOCHENTAG(A3;2)>5

In gleicher Weise geht das auch für die leeren Zellen in Spalte D.

Keine fertige Lösung kann ich Dir für die Feiertage geben, da ich nicht weiß, in welcher Form diese vorliegen. Wenn es einfach eine Liste mit Datumswerten ist, dann kann man eine weitere Regel für die bedingte Formatierung verwenden.

=ZÄHLENWENN(H:H;A3)>0

Spalte H wäre hier die Liste der Feiertage

Folgende Schritte sind notwendig:

Das Diagramm aus dem google-Link muss man etwas stutzen, damit es einen klaren Maximalwert auf der horizontalen und vertikalen Achse gibt.

Dazu aufs Diagramm klicken, im Menu Achse auswählen > Horizontale Achse > Weitere Optionen. Dann wie im Bild Maximum auf 5 und die Intervalle auf 1.

Das gleiche mit der vertikalen Achse.

Für den farbigen Hintergrund reicht es, wenn Du in Excel einen Bereich von 5x5 Zellen (Größe der Zellen ist egal) wie im Bild einfärbst. Den Bereich kopieren, auf das Diagramm rechtsklicken und Zeichnungsbereich formatieren.

Dort wie in meinen vorherigen Antwort Bild aus Zwischenablage einfügen.

Wenn die Beschriftung im Bild notwendig ist, bleibt aus meiner Sicht aber nur übrig entweder in einem anderen Programm das Bild inkl. Text zu malen oder den Text über das Diagramm zu legen. Einfügen > Formen > Textbox

Das kannst Du mit zählenwenns machen. 

z.B. =zählenwenns(A1:A10;"X";D1:D10;3) Das zählt die Zeilen bei denen A = X und Farbe = 3 (in der Hilfsspalte D) ist.

Generell: Farbige Markierungen sind keine gute Lösung in Excel, v.a. nicht die Variante Farben manuell zu setzen und dann versuchen auszuwerten. Wenn Farbe, dann über bedingte Formatierungen, denn diese Regeln kann man auch in Formeln sauber auswerten.