Datensatz neu anordnen

[Simone1982]

Hallo. Ich habe folgendes Problem:
Ich habe eine sehr große Tabelle mit mehreren hunderten Datensätze, in der die benötigten Daten nach unten sortiert sind. Diese benötige ich aber anderes sortiert, um diese für eine andere Tabelle verwenden zu können. Das schwierige hierbei ist, dass die benötigten Datensätze über mehrere Zeilen nach unten stehen und ich diese auch nicht sortieren kann.

Vielleicht könnte mir jemand sagen, wie ich Daten aus der Ausgangstabelle gebündelt in die Zieltabelle einfügen kann?

[WillWissen]

Moin,

zeig mal bitte anhand einer Beispieldatei, die gerne anonymisiert sein kann, aber vom Aufbau her identisch deinem Original sein muss, was genau du meinst. Sortierreihenfolge kann doch über das Sortieren-Menü ausgewählt werden.

[Simone1982]

Hier die zwei Tabellen. In der ersten Tabelle habe ich lediglich 3 Sätze ausgewählt...

[Rabe]

Hi,

Diese benötige ich aber anderes sortiert, um diese für eine andere Tabelle verwenden zu können. Das schwierige hierbei ist, dass die benötigten Datensätze über mehrere Zeilen nach unten stehen und ich diese auch nicht sortieren kann.

ich vermute, die Umwandlung der mehrzeiligen Datensätze in eine neue Tabelle mit einzeiligen Datensätzen geht ganz einfach mit Power Query.
Da ich das selber aber noch nicht benutzt habe, kann ich Dir hier nicht helfen.

[Fennek]

Hallo Simone,

einen "smarten" Ansatz habe ich nicht gefunden, aber eine einzelne Zurodnung ist möglich. Die ersten vier macht der Code, die weiteren musst du analog eintragen:

Code:

Sub Main
r = 1
with sheets("Ziel")
for each ar in activesheet.usedrange.columns(1).specialcells(xlCellTypeConstants,xlNumbers).areas
    if ar.row > 1 then
        r=r+1
        .cells(r,1) = left(ar.cells(1).offset(2),5) 'PLZ
        .cells(r,2) = mid(ar.cells(1).offset(2),6)  'Ort
        .cells(r,3) = ar.cells(1).offset(1)         'Straße
        .cells(r,4) = ar.cells(1).offset(,7)        'Wohnfläche
        '<<<<  usw  >>>>
    endif
next ar
end with
End Sub

Die Datei Zeil habe ich in ein Blatt der ersten Datei kopiert und"Ziel" benannt.

mfg