23.09.2019, 19:08 (Dieser Beitrag wurde zuletzt bearbeitet: 23.09.2019, 19:14 von Doris25.
Bearbeitungsgrund: Screenshots eingefügt, Fehlerkorrektur
)
Hallo zusammen,
nachdem ich iher eine Weile gelesen habe und nicht fündig geworden bin, stelle ich mal mein "Problem" hier ein und hoffe auf eine Lösung... (wenn möglich, ohne VBA - da bin ich gänzlich "unbewandert").
Ich "darf" die angehängte Tabelle umstellen (natürlich ist die Originaltabelle mit einer Gesamtanzahl an Projekten bei etwa 300 deutlich länger...deshalb ist die Funktion "Transponieren" aus dem Einfügen-Menü keine Option)(die Spalten D, E und F sind allsamt als Text formatiert):
Die Spalte "Punkt" soll hintereinander dargestellt werden, die Inhalte der ersten drei Spalten untereinander - und so soll es aussehen (jetzt von Hand untereinander kopiert ):
Und nun bin ich gespannt, wie diese "Nuß" zu knacken ist (Formeln.. Power Query...??) ...
Die Tabelle hänge ich an.
Sub F_en()
For Each c In Cells(1, 1).CurrentRegion.Columns(1).SpecialCells(xlCellTypeBlanks).Areas
c.Cells(1).Offset(, 4).Resize(, 2).Copy c.Cells(1).Offset(-1, 6)
c.Cells(2).Offset(, 4).Resize(, 2).Copy c.Cells(1).Offset(-1, 8)
c.EntireRow.Delete
Next c
ob man das Problem mit Formeln lösen kann weiss ich nicht??? Mit VBA kein Problem ABER ich glaube nicht das deine Tabelle mit 300 Projekten so schön Symetrisch aufgebaut ist wie im Beispiel!!?? Liege ich da richtig??
Der Code von Fennek wird einwandfrei funktionieren, wenn die Zeilenabstaende aller Projekte immer genau vier Zeilen sind! Und es somit immer genau drei Punkte sind. Gibt es da Unterschiede, mehr oder weniger Punkte zwischen den Projekten? Dann wird die Auflistung so nicht hinhauen. Ich warte mal deine Rückmeldung ab.
Eine höfliche Bitte und guter Rat von mir, das gilt auch für mich!! Niemals ein Code aus dem Internet oder Forum in einer Original Datei testen! Die Datei kopieren, am besten in einem Test Ordner schieben, damit man sie NIE verwechseln kann. Dann kannst du in Ruhe testen ob ein Rat oder Code funktioniert. Wenn da Müll entsteht macht das nix! Besonders wenn Zeilen unwiderruflich gelöscht werden ist Vorsicht geboten! Auch bei mir!!
@Gast 123: ist klar, gut, dass Du das mit dem Versuch in einer Sicherungskopie nochmal für alle lesbar bemerkt hast - bin selbst ITler und kenne da einiges.... Die Tabelle: ja, die ist immer gleich aufgebaut! Insofern funzt der VBA Code superbe!
@shift-del: an Pivot hatte ich auch gedacht, die Leerzeilen dafür aufzufüllen ist kein Problem, aber die Datumswerte müssten ja in den Wertebereich und dort wird immer gerechnet. Wie mache ich das dann?
):
