Hallo,
ich habe in einem Exceldokument ein xml-File eingelesen. Alle Elemente finden sich in der ersten Spalte.
Es handelt sich um Datensätze mit jeweils 10 Elementen.
Mein Ziel ist, dass alle Elemente außer zwei (z.B. das dritte und vierte Element) gelöscht werden. Anschliessend sollen auch die leeren Zeilen gelöscht werden.
Als Endresultat sollen also von jedem Datensatz nur die beiden gewünschten Zeilen übrig sein und wie vorher alle Datensätze direkt untereinander stehen.
Anbei ist ein Codeschnipsel, mit den Funktionen von Excel zum Selektieren und Löschen von Zeilen. Mein Ziel alle Elemente außer dem dritten und vierten Element zu löschen habe ich mit dem unkorrekten Ausdruck "For j = 1 To 2 And 5 To10" dargestellt.
Die innere Schleife soll wie gesagt jeden Datensatz bereinigen und die äußere Schleife soll dann die geleerten Zeilen löschen.
Hat jemand eine Idee, wie man diese beiden Probleme in vernünftigen Code packen kann inklusive Abbruchbedingung für die äußere Schleife?
Das wäre eine große Hilfe!
Marco
While ????????
.
.
For j = 1 To 2 And 5 To10
Cells(ActiveCell.Row) = j
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
Next j
Loop |