Office: (Office Version unbekannt) mehrere Werte in Pivot Auswertung, durch Semikolon getrennt anzeigen lassen +weiteres

Hallo Forum,
ich habe folgende Probleme, vielleicht kann mir ja einer von euch helfen:

1. Ich bekomme in einer Pivot-Auswertung mehrere Einträge pro Zelle und würde mir gerne alle einzelnen Einträge, z.B.: durch Semikolons getrennt, anzeigen lassen. In den Pivot Feldeinstellungen finde ich aber nur die Möglichkeit, mir die Anzahl, die Summe, etc. der Werte anzeigen zu lassen, aber nicht alle Werte hintereinander. Gibt es da eine Möglichkeit, das direkt in den Pivot Feldeinstellungen zu lösen?

2. In den Spalten meiner Pivot-Auswertung steht jeweils ein Datum, immer ein Montag. Der Abstand von Spalte zu Spalte ist also meistens 1 Woche, außer, wenn ich zu einer Woche keine Werte habe. Dann ist der Abstand größer als 2 Wochen. Ich hätte in diesem Fall dann aber trotzdem gerne eine Spalte mit dem Datum der fehlenden Woche, in der dann eben keine Werte stehen, aber die trotzdem da ist, damit die Zeitabstände äquidistant sind. Lässt sich das in Pivot auch irgendwo einstellen?

3. Ich würde gerne alle Werte in meiner Pivot Auswertung farblich markieren, die in einer anderen Liste stehen. Ich möchte also nicht die ganze Zelle farblich markieren, sondern nur einzelne Werte (Voraussetzung dafür ist Frage 1, dass ich überhaupt mehrere Werte pro Zelle habe). Dazu habe ich in einem anderen Forum bereits eine Lösung gefunden, allerdings, stehen in der anderen Liste nicht nur ein paar wenige Einträge, nach denen ich dann jeweils einzeln suchen könnte, sondern ein paar mehr und ich würde gerne nach der ganzen Liste suchen und nicht, nach jedem Wert einzeln. Der VBA-Code, der noch etwas modifiziert werden müsste dazu hier:


Sub test()
Dim Zelle As Range
Dim Begriffe(3) As String
Dim Farbe(3) As Long
Dim Pos As Long
Dim i As Long

Begriffe(0) = "abc"
Begriffe(1) = "def"
Begriffe(2) = "ghi"
Begriffe(3) = "jkl"

Farbe(0) = 255
Farbe(1) = 255
Farbe(2) = 65280
Farbe(3) = 49407

For Each Zelle In Columns(3).SpecialCells(xlCellTypeConstants, 2)
For i = 0 To UBound(Begriffe)
Pos = InStr(Zelle.Value, Begriffe(i))
If Pos <> 0 Then
Zelle.Characters(Start:=Pos, Length:=Len(Begriffe(i))).Font.Color = Farbe(i)
End If
Next
Next

End Sub

Danke schon mal für eure Hilfe.

Mit freundlichen Grüßen
Burton1337