4.5k Aufrufe
Gefragt 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
Beantwortet von m-o Profi (22.8k Punkte)
Hallo Karlheinz,

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

Gruß

M.O.
0 Punkte
Beantwortet 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
...