Office: Jede fünfte Zeile löschen

Servus Miteinander,

ich möchte in einer Tabelle, wie bereits aus dem Titel zu erkennen *Smilie , jede fünfte Zeile (komplett nich tnur den Inhalt) löschen.

Gibt es hierfür eine einfache und schnelle Lösung?

Vielen Dank und viele Grüße

Augs

:)

 

Versuchs mal damit

Code:

wobei xxx für die letzte Zeile des Bereiches steht, wo gelöscht werden soll, name steht für die Bezeichnung des Arbeitsblatts, wo das ganze geschehen soll



mfg Sturmovik

 

Hallo augs,

per Makro zum Beispiel so:
Code:

 

Hallo Sturmovik,

darf ich sachte widersprechen? Wenn du die Schleife nicht von unten nach oben laufen läßt, bringen dir die Löschungen deine Zählung durcheinander. Du löschst Zeile 5. Dadurch wird Zeile 10 zu Zeile 9. Du löschst dann aber als zweite Zeile die (neue) Zeile 10!

Gruß Ingolf

 

Hallo Ingolf,

ja, du hast recht... hab ich übersehen. da müßte man den Schritt auf 4 ändern

Code:

Deine Lösung sieht gut aus, benötigt allerdings eine Hilfsspalte, das versuche ich wenn möglich immer zu vermeiden

mfg Sturmovik

 

Vielen Dank für die schnellen Antworten...

Habe beide Lösungen versucht und beide funktionieren nicht ganz optimal.

@Sturmovik: Ich habe das an einer Beispieltabelle versucht. Mit Werten in Spalte A von 1 bis 50, also 50 Zeilen. Nach Anwendung des Codes verbleiben 42 Zeilen. Es sollten aber nur 40 sein, da ja jede fünfte also insgesamt 10 gelöscht werden müssten.

@IngGi: Hier erhalten ich eine Fehlermeldung "Run time error (1004): No cells were found.

Ich kann mir das nicht erklären. Habt Ihr auf Anhieb da eine Idee?

Danke und Gruß
Augs

 

Zu schnell gewesen! *Smilie Nun funktioniert es einwandfrei!

Danke vielmals für die schnelle Hilfe!

Viele Grüße

Augs

 

Hallo Sturmovik,

die Hilfsspalte ist kein großer Nachteil. Nur selten werden alle Spalten eines Tabellenblattes verbraucht sein. *biggrin.gif*

Der Vorteil der Methode über SpecialCells (oder überhaupt aller in Excel implementierter Methoden/Eigenschaften) ist die Geschwindigkeit. Bei einigen bis etlichen Tausend Zellen flutscht das nur so. *entsetzt

Gruß Ingolf

 

Hi Ingolf

Stimmt, ich bin erst einmal an die Grenze gestoßen (Excel 2003) die es ja jetzt nicht mehr gibt. Grund: Hilfsspalten *Smilie

Is mir klar, daß die Excel-Bordmittel in jedem Fall schneller sind als Schleifen, allerdings stört das erst wirklich bei riesigen Tabellen und häufiger Nutzung. Letzteres scheidet naturgemäß aus, denn irgendwann sind ja keine Zeilen mehr da *wink.gif*

Edit: habs grade mal mit 1000 Zeilen probiert... ok, du hast recht *biggrin.gif*

mfg Sturmovik