VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Marco Seyße	Datum: 18.11.2009 21:39:57	Views: 1704	Rating:	Antwort:
Thema: Zeilen löschen in Excel
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen