Excel Frage

Excel Frage http://forum.geizhals.at/feed.jsp?id=902226 Geizhals-Forum Re(5): Excel Frage http://forum.geizhals.at/t902226,8070034.html#8070034 Astrein! Das funktioniert sehr gut! Besten Dank!<br/> Thu, 29 Apr 2021 10:46:38 GMT http://forum.geizhals.at/t902226,8070034.html#8070034 geckos 2021-04-29T10:46:38Z Re(4): Excel Frage http://forum.geizhals.at/t902226,8070002.html#8070002 auf die Schnelle:<br><br>Part I Suchen:<br><br>1) (Element_\d+)<br><br>Sucht nach "Element_" gefolgt von<br>\d+ => bedeutet zumindest eine oder mehrere Ziffern (0-9)<br><br>Das ganze wird gruppiert - das sind die Klammern () - und in einer Variablen gespeichert: $1<br>$1 deshalb weil es die erste Gruppe ist.<br><br>2) .*?Type  =  <br><br>. 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.<br><br>* bedeutet, dass das beliebige Zeichen mehrmals allerdings - im Gegensatz zum + - auch keinmal vorkommen kann.<br><br>? 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.<br><br>3) (\w+)<br>Sucht nach einem sog. word character, sprich ein Buchstabe (egal ob groß oder klein), eine Ziffer oder ein Unterstrich.<br>Das Ganze wieder gruppiert und gespeichert, in diesem Fall in $2, weil die zweite Gruppe.<br><br><br>Part II Ersetzen:<br><br>Die beiden gespeicherten Gruppen werden mittels \t = tab verbunden. <br>Damit es auch im Excel dann in eigenen Spalten steht.<br><br><br><br>Hoffe das war halbwegs verständlich.<br>Wenn nicht, einfach fragen. <img src="smile.gif" width="16" height="19" align="absmiddle" alt=":-)"/><br><br><br> <br/> Thu, 29 Apr 2021 08:02:06 GMT http://forum.geizhals.at/t902226,8070002.html#8070002 M.A. Morpheus 2021-04-29T08:02:06Z Re(4): Excel Frage http://forum.geizhals.at/t902226,8069969.html#8069969 <a href="https://regexper.com/#%28Element_%5Cd%2B%29.*%3FType%20%20%3D%20%20%28%5Cw%2B%29" rel="noopener" target="_blank">https:/<wbr/>/<wbr/>regexper.com/<wbr/>#%28Element_%5Cd%2B%29.*%3FType%20%20%3D%20%20%28%5Cw%2B%29</a> <br><br>$1 ist dann die Group 1, \t ein Tab und $2 die Group 2.<br/> Wed, 28 Apr 2021 18:48:34 GMT http://forum.geizhals.at/t902226,8069969.html#8069969 mko 2021-04-28T18:48:34Z Re(3): Excel Frage http://forum.geizhals.at/t902226,8069968.html#8069968 Danke euch beiden!<br><br>@M.A. Morpheus: Danke Danke Danke!<br><br>Kannst mir kurz erläutern, was diese Strings genau machen?<br><br>Suchen: (Element_\d+).*?Type  =  (\w+)<br>Ersetzen: $1\t$2<br><br>Ich habe noch andere Outputs und möchte die Strings auch dort anwenden, dazu muss ich wissen, was sie genau bedeuten. <br/> Wed, 28 Apr 2021 18:16:33 GMT http://forum.geizhals.at/t902226,8069968.html#8069968 geckos 2021-04-28T18:16:33Z Re(2): Excel Frage http://forum.geizhals.at/t902226,8069963.html#8069963 Nice!<br/> Wed, 28 Apr 2021 17:08:24 GMT http://forum.geizhals.at/t902226,8069963.html#8069963 ein Kritiker 2021-04-28T17:08:24Z Re: Excel Frage http://forum.geizhals.at/t902226,8069962.html#8069962 quick and dirty:<br>ins Notepad++ kopieren<br><br>Suchen - Ersetzen:<br><br>Suchen: (Element_\d+).*?Type  =  (\w+)<br>Ersetzen: $1\t$2<br><br>reguläre Ausdrücke aktivieren, sowie . findet \r und \n<br><br>ins Excel kopieren, sortieren und den Rest löschen.<br><br><br><br><br/> Wed, 28 Apr 2021 17:03:01 GMT http://forum.geizhals.at/t902226,8069962.html#8069962 M.A. Morpheus 2021-04-28T17:03:01Z Re: Excel Frage http://forum.geizhals.at/t902226,8069961.html#8069961 quick and dirty:<br>ins Notepad++ kopieren<br><br>Suchen - Ersetzen:<br><br>Suchen: (Element_\d+).*?Type  =  (\w+)<br>Ersetzen: $1\t$2<br><br>reguläre Ausdrück aktivieren, sowie . findet \r und \n<br><br>ins Excel kopieren, sortieren und den Rest löschen.<br><br><br><br><br/> Wed, 28 Apr 2021 17:03:01 GMT http://forum.geizhals.at/t902226,8069961.html#8069961 M.A. Morpheus 2021-04-28T17:03:01Z Re(5): Excel Frage http://forum.geizhals.at/t902226,8069893.html#8069893 Vorausgesetzt, dass die Daten in Tabellenblatt "Tabelle1" sind, und ein Tabellenblatt "Tabelle2" für die Ausgabe existiert, sollte das hier funktionieren:<br><br>Die "17" in der Zeile "legth = Len..." ist die Anzahl der Zeichen bis der gesuchte Text beginnt, also "       Type = "<br><br>Sub Makro1()<br><br>Application.ScreenUpdating = False<br>Application.Calculation = xlCalculationManual<br><br>Dim counter As Integer<br>Dim output As Integer<br>Dim length As Long<br>counter = 3<br>output = 2<br>length = 0<br><br>Do While Sheets("Tabelle1").Cells(counter, 1) <> ""<br>    Sheets("Tabelle2").Cells(output, 1) = Sheets("Tabelle1").Cells(counter, 1)<br>    length = Len(Sheets("Tabelle1").Cells(counter + 9, 1)) - 17<br>    Sheets("Tabelle2").Cells(output, 2) = Right(Sheets("Tabelle1").Cells(counter + 9, 1), length)<br>    counter = counter + 18<br>    output = output + 1<br>    length = 0<br>Loop<br><br>    <br>Application.ScreenUpdating = True<br>Application.Calculation = xlCalculationAutomatic<br>Call Calculate<br><br>End Sub<br/> Wed, 28 Apr 2021 14:24:33 GMT http://forum.geizhals.at/t902226,8069893.html#8069893 ein Kritiker 2021-04-28T14:24:33Z Re(5): Excel Frage http://forum.geizhals.at/t902226,8069898.html#8069898 Vorausgesetzt, dass die Daten in Tabellenblatt "Tabelle1" sind, und ein Tabellenblatt "Tabelle2" für die Ausgabe existiert, sollte das hier funktionieren:<br><br>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.<br><br>Sub Makro1()<br><br>Application.ScreenUpdating = False<br>Application.Calculation = xlCalculationManual<br><br>Dim counter As Integer<br>Dim output As Integer<br>Dim length As Long<br>counter = 3<br>output = 2<br>length = 0<br><br>Do While Sheets("Tabelle1").Cells(counter, 1) <> ""<br>    Sheets("Tabelle2").Cells(output, 1) = Sheets("Tabelle1").Cells(counter, 1)<br>    length = Len(Sheets("Tabelle1").Cells(counter + 9, 1)) - 17<br>    Sheets("Tabelle2").Cells(output, 2) = Right(Sheets("Tabelle1").Cells(counter + 9, 1), length)<br>    counter = counter + 18<br>    output = output + 1<br>    length = 0<br>Loop<br><br>    <br>Application.ScreenUpdating = True<br>Application.Calculation = xlCalculationAutomatic<br>Call Calculate<br><br>End Sub<br/> Wed, 28 Apr 2021 14:24:33 GMT http://forum.geizhals.at/t902226,8069898.html#8069898 ein Kritiker 2021-04-28T14:24:33Z Re(5): Excel Frage http://forum.geizhals.at/t902226,8069896.html#8069896 Vorausgesetzt, dass die Daten in Tabellenblatt "Tabelle1" sind, und ein Tabellenblatt "Tabelle2" für die Ausgabe existiert, sollte das hier funktionieren:<br><br>Die "17" in der Zeile "length = Len..." ist die Anzahl der Zeichen bis der gesuchte Text beginnt, also "       Type = " INKL. Leerzeichen nach dem Gleichheitszeichen!<br><br>Sub Makro1()<br><br>Application.ScreenUpdating = False<br>Application.Calculation = xlCalculationManual<br><br>Dim counter As Integer<br>Dim output As Integer<br>Dim length As Long<br>counter = 3<br>output = 2<br>length = 0<br><br>Do While Sheets("Tabelle1").Cells(counter, 1) <> ""<br>    Sheets("Tabelle2").Cells(output, 1) = Sheets("Tabelle1").Cells(counter, 1)<br>    length = Len(Sheets("Tabelle1").Cells(counter + 9, 1)) - 17<br>    Sheets("Tabelle2").Cells(output, 2) = Right(Sheets("Tabelle1").Cells(counter + 9, 1), length)<br>    counter = counter + 18<br>    output = output + 1<br>    length = 0<br>Loop<br><br>    <br>Application.ScreenUpdating = True<br>Application.Calculation = xlCalculationAutomatic<br>Call Calculate<br><br>End Sub<br/> Wed, 28 Apr 2021 14:24:33 GMT http://forum.geizhals.at/t902226,8069896.html#8069896 ein Kritiker 2021-04-28T14:24:33Z Re(5): Excel Frage http://forum.geizhals.at/t902226,8069894.html#8069894 Vorausgesetzt, dass die Daten in Tabellenblatt "Tabelle1" sind, und ein Tabellenblatt "Tabelle2" für die Ausgabe existiert, sollte das hier funktionieren:<br><br>Die "17" in der Zeile "length = Len..." ist die Anzahl der Zeichen bis der gesuchte Text beginnt, also "       Type = "<br><br>Sub Makro1()<br><br>Application.ScreenUpdating = False<br>Application.Calculation = xlCalculationManual<br><br>Dim counter As Integer<br>Dim output As Integer<br>Dim length As Long<br>counter = 3<br>output = 2<br>length = 0<br><br>Do While Sheets("Tabelle1").Cells(counter, 1) <> ""<br>    Sheets("Tabelle2").Cells(output, 1) = Sheets("Tabelle1").Cells(counter, 1)<br>    length = Len(Sheets("Tabelle1").Cells(counter + 9, 1)) - 17<br>    Sheets("Tabelle2").Cells(output, 2) = Right(Sheets("Tabelle1").Cells(counter + 9, 1), length)<br>    counter = counter + 18<br>    output = output + 1<br>    length = 0<br>Loop<br><br>    <br>Application.ScreenUpdating = True<br>Application.Calculation = xlCalculationAutomatic<br>Call Calculate<br><br>End Sub<br/> Wed, 28 Apr 2021 14:24:33 GMT http://forum.geizhals.at/t902226,8069894.html#8069894 ein Kritiker 2021-04-28T14:24:33Z Re(5): Excel Frage http://forum.geizhals.at/t902226,8069892.html#8069892 Vorausgesetzt, dass die Daten in Tabellenblatt "Tabelle1" sind, und ein Tabellenblatt "Tabelle2" für die Ausgabe existiert, sollte das hier funktionieren:<br><br>Sub Makro1()<br><br>Application.ScreenUpdating = False<br>Application.Calculation = xlCalculationManual<br><br>Dim counter As Integer<br>Dim output As Integer<br>Dim length As Long<br>counter = 3<br>output = 2<br>length = 0<br><br>Do While Sheets("Tabelle1").Cells(counter, 1) <> ""<br>    Sheets("Tabelle2").Cells(output, 1) = Sheets("Tabelle1").Cells(counter, 1)<br>    length = Len(Sheets("Tabelle1").Cells(counter + 9, 1)) - 17<br>    Sheets("Tabelle2").Cells(output, 2) = Right(Sheets("Tabelle1").Cells(counter + 9, 1), length)<br>    counter = counter + 18<br>    output = output + 1<br>    length = 0<br>Loop<br><br>    <br>Application.ScreenUpdating = True<br>Application.Calculation = xlCalculationAutomatic<br>Call Calculate<br><br>End Sub<br/> Wed, 28 Apr 2021 14:24:33 GMT http://forum.geizhals.at/t902226,8069892.html#8069892 ein Kritiker 2021-04-28T14:24:33Z Re(4): Excel Frage http://forum.geizhals.at/t902226,8069859.html#8069859 NE Name zu Type sind es 10 Zeilen<br>Type zu nächsten NE Namen sind es 16 Zeilen<br><br>Wenn es so leicht wäre hätte ich hier nicht gefragt.<br>Kann jemand mir freundlicherweise dieses Makro basteln?<br/> Wed, 28 Apr 2021 12:07:59 GMT http://forum.geizhals.at/t902226,8069859.html#8069859 geckos 2021-04-28T12:07:59Z Re(4): Excel Frage http://forum.geizhals.at/t902226,8069860.html#8069860 NE Name zu Type sind es 10 Zeilen<br>Type zu nächsten NE Namen sind es 16 Zeilen<br><br>Wenn es so leicht wäre hätte ich hier nicht gefragt. <img src="zwinker.gif" width="16" height="19" align="absmiddle" alt=";-)"/><br>Kann jemand mir freundlicherweise dieses Makro basteln?<br/> Wed, 28 Apr 2021 12:07:59 GMT http://forum.geizhals.at/t902226,8069860.html#8069860 geckos 2021-04-28T12:07:59Z Re(3): Excel Frage http://forum.geizhals.at/t902226,8069855.html#8069855 Wenn die Anzahl der Zeilen zwischen den zwei Daten konstant ist, kannst du dir sehr leicht ein Makro mit einer Schleife basteln.<br/> Wed, 28 Apr 2021 11:55:15 GMT http://forum.geizhals.at/t902226,8069855.html#8069855 ein Kritiker 2021-04-28T11:55:15Z Re(2): Excel Frage http://forum.geizhals.at/t902226,8069846.html#8069846 Eigentlich ja<br/> Wed, 28 Apr 2021 11:04:06 GMT http://forum.geizhals.at/t902226,8069846.html#8069846 geckos 2021-04-28T11:04:06Z Re(2): Excel Frage http://forum.geizhals.at/t902226,8069847.html#8069847 Eigentlich ja.<br>Ich will aus dem Ganzen eigentlich nur NE Namen und die dazugehörige Type auslesen und weiterverarbeiten.<br/> Wed, 28 Apr 2021 11:04:06 GMT http://forum.geizhals.at/t902226,8069847.html#8069847 geckos 2021-04-28T11:04:06Z Re: Excel Frage http://forum.geizhals.at/t902226,8069844.html#8069844 Sind alle Datenblöcke identisch aufgebaut?<br/> Wed, 28 Apr 2021 10:54:02 GMT http://forum.geizhals.at/t902226,8069844.html#8069844 ein Kritiker 2021-04-28T10:54:02Z Excel Frage http://forum.geizhals.at/t902226,8069831.html#8069831 Hallo!<br><br>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.<br><br><br>Der Output sieht ungefähr so aus:<br><br><img src="https://forum.geizhals.at/files/229383/output.jpg"/><br><br>Das fertige Excel File soll so aussehen (gerne auch in einem neuen Blatt):<br><br><img src="https://forum.geizhals.at/files/229383/excel.jpg"/><br><br><br>Wer kann mir aushelfen?<br><br><br>Das File steht hier zum Download, falls jemand herum testen möchte:<br><br><a href="https://www.file2send.eu/de/download/fRmrt8dA31pBX2VErwFjOrQERLVEjeQLqn9hDsM9xnRGPiD3z8mzXqUEhIhJWJiV" rel="noopener" target="_blank">https:/<wbr/>/<wbr/>www.file2send.eu/<wbr/>de/<wbr/>download/<wbr/>fRmrt8dA31pBX2VErwFjOrQERLVEjeQLqn9hDsM9xnRGPiD3z8mzXqUEhIhJWJiV</a> <br><br>Danke im voraus<br/> Wed, 28 Apr 2021 08:40:47 GMT http://forum.geizhals.at/t902226,8069831.html#8069831 geckos 2021-04-28T08:40:47Z Excel Frage http://forum.geizhals.at/t902226,8069832.html#8069832 Hallo!<br><br>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.<br><br><br>Der Output sieht ungefähr so aus:<br><br><img src="https://forum.geizhals.at/files/229383/output.jpg"/><br><br>Das fertige Excel File soll so aussehen (gerne auch in einem neuen Blatt):<br><br><img src="https://forum.geizhals.at/files/229383/excel.jpg"/><br><br><br>Wer kann mir aushelfen?<br><br><br>Das File steht hier zum Download, falls jemand herum testen möchte:<br><br><a href="https://www.file2send.eu/de/download/fRmrt8dA31pBX2VErwFjOrQERLVEjeQLqn9hDsM9xnRGPiD3z8mzXqUEhIhJWJiV" rel="noopener" target="_blank">https:/<wbr/>/<wbr/>www.file2send.eu/<wbr/>de/<wbr/>download/<wbr/>fRmrt8dA31pBX2VErwFjOrQERLVEjeQLqn9hDsM9xnRGPiD3z8mzXqUEhIhJWJiV</a> <br><br>oder hier<br><br><a href="https://filehorst.de/d/dGBoGwbt" rel="noopener" target="_blank">https:/<wbr/>/<wbr/>filehorst.de/<wbr/>d/<wbr/>dGBoGwbt</a> <br><br>Danke im voraus<br/> Wed, 28 Apr 2021 08:40:47 GMT http://forum.geizhals.at/t902226,8069832.html#8069832 geckos 2021-04-28T08:40:47Z