Texte sortieren (VBA)

Björn, Donnerstag, 14.03.2019, 15:18 (vor 68 Tagen)

Hallo miteinander,

ich habe ein Verzeichnis mit sehr vielen Textdateien ungefähr wie folgt aufgebaut:

Haus 1.txt
Baum
Pferd
Hund
Rasenmäher

Haus 2.txt
Pool
Hahn
Auto
Fahrrad

Haus 3.txt
Baum
Pool
Hahn
Auto

...

Die kann ich alle schön in Excel einlesen und sortieren etc. Allerdings würde ich sie gerne wie folgt darstellen und hab da derzeit irgendwie keine richtige Idee zu:

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
 <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
  <Author>bdoerschel</Author>
  <LastAuthor>bdoerschel</LastAuthor>
  <Created>2019-03-14T14:15:36Z</Created>
  <Version>15.00</Version>
 </DocumentProperties>
 <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
  <AllowPNG/>
 </OfficeDocumentSettings>
 <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
  <WindowHeight>8265</WindowHeight>
  <WindowWidth>14040</WindowWidth>
  <WindowTopX>0</WindowTopX>
  <WindowTopY>0</WindowTopY>
  <ProtectStructure>False</ProtectStructure>
  <ProtectWindows>False</ProtectWindows>
 </ExcelWorkbook>
 <Styles>
  <Style ss:ID="Default" ss:Name="Normal">
   <Alignment ss:Vertical="Bottom"/>
   <Borders/>
   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"/>
   <Interior/>
   <NumberFormat/>
   <Protection/>
  </Style>
  <Style ss:ID="s62">
   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"
    ss:Bold="1"/>
  </Style>
 </Styles>
 <Worksheet ss:Name="Tabelle1">
  <Table ss:ExpandedColumnCount="5" ss:ExpandedRowCount="10" x:FullColumns="1"
   x:FullRows="1" ss:DefaultColumnWidth="60" ss:DefaultRowHeight="15">
   <Row>
    <Cell ss:StyleID="s62"><Data ss:Type="String">Alles</Data></Cell>
    <Cell ss:StyleID="s62"><Data ss:Type="String">Haus 1</Data></Cell>
    <Cell ss:StyleID="s62"><Data ss:Type="String">Haus 2</Data></Cell>
    <Cell ss:StyleID="s62"><Data ss:Type="String">Haus 3</Data></Cell>
    <Cell ss:StyleID="s62"><Data ss:Type="String">Haus 4</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Baum</Data></Cell>
    <Cell><Data ss:Type="String">Baum</Data></Cell>
    <Cell ss:Index="4"><Data ss:Type="String">Baum</Data></Cell>
    <Cell><Data ss:Type="String">Baum</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Pool</Data></Cell>
    <Cell ss:Index="3"><Data ss:Type="String">Pool</Data></Cell>
    <Cell><Data ss:Type="String">Pool</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Pferd</Data></Cell>
    <Cell><Data ss:Type="String">Pferd</Data></Cell>
    <Cell ss:Index="5"><Data ss:Type="String">Pferd</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Hund</Data></Cell>
    <Cell><Data ss:Type="String">Hund</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Katze</Data></Cell>
    <Cell ss:Index="5"><Data ss:Type="String">Katze</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Hahn</Data></Cell>
    <Cell ss:Index="3"><Data ss:Type="String">Hahn</Data></Cell>
    <Cell><Data ss:Type="String">Hahn</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Rasenmäher</Data></Cell>
    <Cell><Data ss:Type="String">Rasenmäher</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Auto</Data></Cell>
    <Cell ss:Index="3"><Data ss:Type="String">Auto</Data></Cell>
    <Cell><Data ss:Type="String">Auto</Data></Cell>
    <Cell><Data ss:Type="String">Auto</Data></Cell>
   </Row>
   <Row>
    <Cell><Data ss:Type="String">Fahrrad</Data></Cell>
    <Cell ss:Index="3"><Data ss:Type="String">Fahrrad</Data></Cell>
   </Row>
  </Table>
  <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
   <PageSetup>
    <Header x:Margin="0.3"/>
    <Footer x:Margin="0.3"/>
    <PageMargins x:Bottom="0.78740157499999996" x:Left="0.7" x:Right="0.7"
     x:Top="0.78740157499999996"/>
   </PageSetup>
   <Selected/>
   <Panes>
    <Pane>
     <Number>3</Number>
     <RangeSelection>R1C1:R10C5</RangeSelection>
    </Pane>
   </Panes>
   <ProtectObjects>False</ProtectObjects>
   <ProtectScenarios>False</ProtectScenarios>
  </WorksheetOptions>
 </Worksheet>
</Workbook>
 

Hat irgendwer eine Idee, wie ich die Darstellung so hinbekomme, wie in dem .xml Beispiel?

Vielen Dank im Voraus

Gruß
Björn

Texte sortieren

Martin Asal @, Freitag, 15.03.2019, 10:04 (vor 67 Tagen) @ Björn

Wenn du nicht mal genau in Textform beschreiben kannst, wie du sortieren möchtest, kannst du keine Lösung finden oder erwarten.

Martin

RSS-Feed dieser Diskussion
powered by my little forum