5.3k Aufrufe
in Tabellenkalkulation von
ein Hallo an Alle,

habe folgendes Problem:

Worksheets(TABELL).Range(Cells(ZAE, 1), Cells(ZANZ, 40)).Select
Delete.Row.Selection

mit diesem Modul-Ausschnitt möchte ich einen Zellenblock markieren und anschließend die Zeilen dieses Blocks löschen.
im ersten Augenschein einfach, doch ich beschäftige mich schon seit Tagen mit der Lösung.
Besonderheit dabei: das angesprochene, selektierte Sheet ist 1 Detail-Sheet aus 1 Pivot-Tabelle.
Kurzbeschreibung der Vorgehensweise: aus 1 Pivot wird duch Drill-Down ein neues Sheet erstellt, welches nachbearbeitet wird. Dabei sollen überflüssige Zeilen gelöscht werden und die Zahlen vernünftig formatiert werden.
Vielleicht fällt ja Jemanden etwas zur Lösung ein.
Würde mich freuen, was zu hören.
Karlheinz

22 Antworten

0 Punkte
von m-o Profi (22.9k Punkte)
Hallo Karlheinz,

ich kann den Fehler in der Testdatei nicht nachvollziehen. Dort klappt das Löschen.

Gruß

M.O.
0 Punkte
von
Hallo M.O.,
Hallo Nighty,

freut mich, dass ich noch einen fruchtbaren Beitrag leisten kann:

WK1.Cells(ZAE, 1).Activate
WK1.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Rows.Delete

das funktioniert, sauber und schnell

Gruß
Karlheinz

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...