Guten Tag an alle,

Vorweg muss ich sagen, ich bin absoluter Anfänger in VBA und daher wird das Problem, das ich habe, für viele hier wohl eher trivial sein.

Ich habe eine Funktion in VBA Excel, die mir e-Mails aus einem Postfach zerlegt und "aufschlüsselt".
Es geht darum, dass diese E-Mails zu bestimmten Projekten Statusinformationen bzw. Updates erhalten und in der Excel-Tabelle soll am Ende das Projekt mit den Informationen in einer Zeile stehen.
Das funktioniert auch soweit, also zu einem Projekt wird z.B. eine Zeile bei Initiierung geschrieben und dahinter dann alle notwendigen Information. Es gibt aber zu dem Projekt laufend Updates und auch Rectifications, die natürlich aber erst Tage oder Wochen später kommen. Meine Funktion schreibt dann zwar für das Item eine Zeile für das Update oder die Rectifications, dann aber deutlich weiter unten in der Tabelle.
Ich möchte also, dass erkannt wird, dass es sich um das selbe Projekt handelt und alle Statusinformationen mit Zeilenumbruch in dieselbe Zeile gepackt werden.
Ich poste mal den Code und eine Beispielzeile, um das zu Veranschaulichen:



In Excel sehen Beispiel-Zeilen dann so aus:


Nun möchte ich, dass die Initiierung von Projekt 1 und das spätere Update in derselben Zelle mit Zeilenumbruch angezeigt werden, sodass man am Ende für jedes Projekt über die gesamte Laufzeit nur eine Excel-Zeile hat.

Für jede Hilfe wäre ich sehr dankbar!

Wird hier eine PowerQuery Abfrage aktualisiert? Was wird in der Abfrage gemacht?​

Hier wird die Verbindung zum Mailserver aktualisiert und die Datenquelle (das Mailpostfach) abgefragt.

​Dein VBA-Code bedeutet doch, dass Du jedes mal alle Zellen neu schreiben musst oder?

Die Rohdaten sind in einem Excelsheet, die Abfrage aktualisiert diese und fügt neue hinzu und dann wird daraus meine Übersicht generiert. Könnte man bestimmt besser lösen, aber wir reden hier nicht von allzu vielen Einträgen, von daher vernachlässigbar, denke ich.

​Variante 1: Du sortierst die Tabelle anschließend nach Projektnummer.

Ist das in VBA zu realisieren? Zurzeit benutze ich einfach den Filter von Excel und sortiere damit, aber es wäre natürlich eleganter (da es auch andere benutzen sollen), wenn direkt sortiert wäre und eine Zeile pro Projekt

Variante 2: Du suchst beim Eintrag nach der Projektnummer und wenn der Eintrag existiert, hängst du die Daten hinten dran.​

Selbes Spiel, wie mache ich das in VBA? Das wäre auch meine Idee gewesen, das Array nach Dopplungen zu durchsuchen und dann wenn zwei mal oder öfter "ProjektXX" auftaucht, das in eine gemeinsame Zeile schreiben zu lassen. Ich weiß nur leider nicht, wie ich das realisiere.

Vielen Dank für die Hilfe, ich werde dann wohl versuchen, zumindest die Projekte in einzelnen Zeilen untereinandergeschrieben hinzubekommen.
Ich habe den Code auch so bekommen und leider wenig bis keine Ahnung von VBA, neu schreiben ist daher keine Option.

Vollzitat entfernt. ~Thunderbolt

Mit Range.Sort​

Habe rumprobiert, aber kriege nicht wirklich raus, wie ich damit die Projekte sortieren kann.
Also die Initiierung, Update und Rectification fangen immer mit der Projektnummer_Jahr an, danach würd ich entsprechend gern sortieren. Dann wären zumindest die Projekte in Zeilen untereinander sortiert, das würde schon reichen.
Kannst du mir sagen, wie ich das in meine Funktion einbauen könnte? Lasse ich meinen Code laufen, um die Tabelle zu bauen und mache danach dann Range.Sort auf die Spalte der Projektbezeichnung? Steige da leider nicht ganz durch, sorry.
Auch wenn der Code wie du sagst nicht sonderlich schön ist, wäre das alles und das Makro würde seinen Zweck erfüllen. Objektorientiert und generell besser geschrieben übersteigt leider meine Fähigkeiten, auch wenn mir das natürlich lieber wäre.

Gruß und vielen Dank für die Hilfe

Kommt das in die Schleife oder außerhalb? Magst du mir verraten, wie ich Range.sort in Bezug auf das Projekt benutze? Sorry für die Anfängerfragen, aber danke dir für die Hilfe!