Office: (Office 365) Excel Kalender in Word als Liste exportieren

Hallo zusammen,

ich habe folgendes vor:

Ich besitze einen Kalender (Jahresplan) und möchte diesen gerne in Word exportieren. Wichtig ist das die Termine den Personen zugeordnet sind und nach Datum Sortiert sind.

Hier ein Bsp für das Resultat.

Person 1:
01.01.2025 Termin 1
05.02.2025 Termin 2
...

Person 2:
06.01.2025 Termin 1
05.02.2025 Termin 2
...

Person 3:
25.01.2025 Termin 1
05.02.2025 Termin 2
...

Wie es aktuell in meiner Excel aussieht seht ihr in dem Bild.

Vielen Dank für Lösungsansätze.

 

Hi,

mal abgesehen davon, dass wohl kaum jemand Dein Bild nachbauen wird (was auch unklug wäre, wegen unbrauchbarer Datenstruktur), passt außerdem nicht eins Deiner Beispiele zu den Bilddaten.
Mein Vorschlag:
Ändere die Datenstruktur: Name - Vorgang - Termin - Bemerkung (via Dropdown kannst Du dort die Eingabe/Auswahl vereinfachen, hast aber keine leeren Datensätze)
Schreibe alle Datensätze ohne Leerzeilen untereinander.
Exportiere nicht nach Word sondern filtere die Daten via Filter oder Slicer.

 

Hi, erstmal danke für dein Feedback.
Die Bilddatei zeigt den aktuellen Stand, die Zellen sind alle mit Dropdownmenüs hinterlegt. Die Bsp sollen Zeigen wie ich die Liste gerne Strukturiert haben möchte.

Die Termine müssen an meinen Diensteinteiler als Liste geschickt werden. Am einfachsten wäre es wenn ich ihm die Datei zur Verfügung stelle, da die Datei aber Sensible Daten enthält, kann ich sie ihm nicht zur Verfügung stellen.
Das ist eine Planungsdatei um zu schauen wann wer zeit hat und wann was für ein Termin ansteht. Und Der Diensteinteiler braucht nur das Datum und wer. Und ich möchte es etwas beschleunigen, da ich keine 800 Termine per Hand aufschreiben möchte.

 

Ich vermute mal, Dein ganzer Stolz ist, dass sich bei Änderung der Jahreszahl alle Datumsfelder für das ganze Jahr automatisch anpassen. Ja, ja.... ganz hübsch... hast Du schick gemacht. Applaus! Und jetzt weg damit...
Daten werden nicht auf Vorrat erhoben, sondern entsprechend ihrem Vorkommen. Es ist vollkommen unsinnig, für jeden Tag des Jahres eine Spalte zu reservieren, auch wenn an diesem Tag absolut nichts passiert. Außerdem sollten die Daten (Datümer) untereinander stehen. Dadurch lassen sie sich wesentlich leichter sortieren und/oder filtern. Und wenn das erledigt ist, dann erstellst Du Dir noch fix eine PQ Abfrage, die die Daten Deinen Vorstellungen entsprechend aufbereitet und das Ergebnis schickst Du dann an den Dienstleister.

Die Struktur der Tabelle könnte so aussehen:

Mitarbeiter Termin Ereignis Status
Niklas Mo 01.01.2024 Urlaub Genehmigt

 

Hallo Niklas,

teste mal. Da du keine Worddatei mit hochgeladen hast, erfolgt die Ausgabe erst mal in einem weiteren Tabellenblatt.
Ansonsten wäre da nur noch das Übergeben des Arrays noch Word und da das Erzeugen der Ausgabe aus dem Array ins Dokument zu machen.

Gruß Uwe

 

Hallo Niklas,

tausche mal diese Prozedur aus:

Code:

Sub AlleTermineSammeln()
    Dim arrName(), i&, j&, k&, tmp$
    With Tabelle13
        For i = 9 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 1) <> "" Then
                k = k + 1
                ReDim Preserve arrName(1 To 2, 1 To k)
                arrName(1, k) = .Cells(i, 1)
                For j = 2 To 368
                    If .Cells(i, j) <> "" Then
                        tmp = tmp & .Cells(4, j) & ": " & .Cells(i, j) & vbCrLf
                    End If
                Next j
            End If
            If tmp <> "" Then arrName(2, k) = Left(tmp, Len(tmp) - 1)
            tmp = ""
        Next i
        arrName = Application.Transpose(arrName)
    End With
    With Sheets("Ausgabe")
        If .Cells(2, 1) <> "" Then .Range("A2:B" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
        .Cells(2, 1).Resize(UBound(arrName, 1), UBound(arrName, 2)) = arrName
    End With
End Sub

Das ist zwar etwas verschachtelt, aber dafür kompakter. Die Zeilennummer braucht es sowieso nicht unbedingt.

Gruß Uwe