Bereich einer definierten Tabelle dynamisch anpassen

[JonasW]

Hallo Forum,

da ich eine dynamische Pivot-Tabelle benötige, habe ich den Datenbereich ebenfalls als Tabelle definiert. Neue Zeilen werden problemlos hinzugefügt und auch in die Pivot übernommen. Wenn ich jedoch per VBA-Code Einträge lösche, bleibt der Tabellenbereich gleich. Dies hat zur folge, dass aufgrund der Leerzeilen in meiner Pivot-Tabelle, bei der Auswertung immer "Anzahl" anstatt "Summe" voreingestellt ist.

Wie kann ich den definierten Tabellenbereich per VBA an die anzahl der ausgefüllten Zellen anpassen?

Viele Grüße
Jonas

[Ego]

Hallo Jonas,

am saubersten ist es, wenn du im VBA_Code nicht nur Einträge, sondern auch Tabellenzeilen löschst.

[schauan]

Hallöchen,

und weil es eine Tabelle ist / ein Listobjekt, geht das im Prinzip so:

Code:

ActiveSheet.ListObjects("Tabelle1").ListRows(1).Delete