Excel Frage

Excel Frage (20 Beiträge, 747 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo!

Ich habe von einem System ein Output, dass mehrere Tausend Zeilen enthält. Diesen Output würde ich gerne ins Excel bringen und dort übersichtlich darstellen.

Der Output sieht ungefähr so aus:

Das fertige Excel File soll so aussehen (gerne auch in einem neuen Blatt):

Wer kann mir aushelfen?

Das File steht hier zum Download, falls jemand herum testen möchte:

https://www.file2send.eu/de/download/fRmrt8dA31pBX2VErwFjOrQERLVEjeQLqn9hDsM9xnRGPiD3z8mzXqUEhIhJWJiV

oder hier

https://filehorst.de/d/dGBoGwbt

Danke im voraus
_______________________________________________________

28.04.2021, 10:46 Uhr - Editiert von geckos, alte Version: hier

Sind alle Datenblöcke identisch aufgebaut?

Eigentlich ja.
Ich will aus dem Ganzen eigentlich nur NE Namen und die dazugehörige Type auslesen und weiterverarbeiten.
_______________________________________________________

28.04.2021, 13:05 Uhr - Editiert von geckos, alte Version: hier

Wenn die Anzahl der Zeilen zwischen den zwei Daten konstant ist, kannst du dir sehr leicht ein Makro mit einer Schleife basteln.

NE Name zu Type sind es 10 Zeilen
Type zu nächsten NE Namen sind es 16 Zeilen

Wenn es so leicht wäre hätte ich hier nicht gefragt.

Kann jemand mir freundlicherweise dieses Makro basteln?
_______________________________________________________

28.04.2021, 14:09 Uhr - Editiert von geckos, alte Version: hier

Vorausgesetzt, dass die Daten in Tabellenblatt "Tabelle1" sind, und ein Tabellenblatt "Tabelle2" für die Ausgabe existiert, sollte das hier funktionieren:

Die "17" in der Zeile "length = Len..." ist die Anzahl der Zeichen bis der gesuchte Text beginnt, also "       Type = " INKL. Leerzeichen nach dem Gleichheitszeichen! Das musst du also noch anpassen.

Sub Makro1()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim counter As Integer
Dim output As Integer
Dim length As Long
counter = 3
output = 2
length = 0

Do While Sheets("Tabelle1").Cells(counter, 1) <> ""
    Sheets("Tabelle2").Cells(output, 1) = Sheets("Tabelle1").Cells(counter, 1)
    length = Len(Sheets("Tabelle1").Cells(counter + 9, 1)) - 17
    Sheets("Tabelle2").Cells(output, 2) = Right(Sheets("Tabelle1").Cells(counter + 9, 1), length)
    counter = counter + 18
    output = output + 1
    length = 0
Loop


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Call Calculate

End Sub

28.04.2021, 16:29 Uhr - Editiert von ein Kritiker, alte Version: hier

28.04.2021, 19:05 Uhr - Editiert von M.A. Morpheus, alte Version: hier

Nice!

Danke euch beiden!

@M.A. Morpheus: Danke Danke Danke!

Kannst mir kurz erläutern, was diese Strings genau machen?

Suchen: (Element_\d+).*?Type = (\w+)
Ersetzen: $1\t$2

Ich habe noch andere Outputs und möchte die Strings auch dort anwenden, dazu muss ich wissen, was sie genau bedeuten.
_______________________________________________________

https://regexper.com/#%28Element_%5Cd%2B%29.*%3FType%20%20%3D%20%20%28%5Cw%2B%29

$1 ist dann die Group 1, \t ein Tab und $2 die Group 2.

auf die Schnelle:

Part I Suchen:

1) (Element_\d+)

Sucht nach "Element_" gefolgt von
\d+ => bedeutet zumindest eine oder mehrere Ziffern (0-9)

Das ganze wird gruppiert - das sind die Klammern () - und in einer Variablen gespeichert: $1
$1 deshalb weil es die erste Gruppe ist.

2) .*?Type =

. bedeutet ein beliebiges Zeichen, außer \r und \n (das sind - einfach gesagt - Zeilenumbrüche), daher die Zusatzoption in Notepad++, dass . auch diese beiden Zeichen findet.

* bedeutet, dass das beliebige Zeichen mehrmals allerdings - im Gegensatz zum + - auch keinmal vorkommen kann.

? bedeutet, dass das Ganze non-greedy ausgeführt wird, sprich es wird nur bis zum nächsten Begriff - in unserem Fall "Type" gesucht und nicht bis zum letzten.

3) (\w+)
Sucht nach einem sog. word character, sprich ein Buchstabe (egal ob groß oder klein), eine Ziffer oder ein Unterstrich.
Das Ganze wieder gruppiert und gespeichert, in diesem Fall in $2, weil die zweite Gruppe.

Part II Ersetzen:

Die beiden gespeicherten Gruppen werden mittels \t = tab verbunden.
Damit es auch im Excel dann in eigenen Spalten steht.

Hoffe das war halbwegs verständlich.
Wenn nicht, einfach fragen.

…………………………………………………………………………………………………………………………………………………………………
"Die Menschen von heute wünschen das Leben von übermorgen zu den Preisen von vorgestern."
Thomas Lanier Williams

"Viele Menschen benutzen das Geld, das sie nicht haben, für den Einkauf von Dingen, die sie nicht brauchen, um damit Leuten zu imponieren, die sie nicht mögen."
Walter Slezak

Astrein! Das funktioniert sehr gut! Besten Dank!
_______________________________________________________

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung