Als Tabelle formatierter Bereich um eine Zeile verkleinern

[DeLaGhetto]

Hallo zusammen,

ich habe momentan folgenden Code:

Code:

ActiveSheet.ListObjects("Tabelle_Woche_1").Resize Range("$D$1:$E$10")

Das ist ein Datenbereich, den ich als Tabelle formatiert habe.
Jetzt möchte ich diesen Bereich über VBA verkleinern. Der Bereich fängt immer bei D1 an allerdings kann es sein, dass der Bereich nur bis E5 geht oder bis E15.
Das heißt, ich möchte das meine aktuelle Tabelle (Tabelle_Woche_1) nach betätigen des Makros immer um eine Zeile kleiner gemacht wird.
Wie ist das möglich?

[Elex]

Hi

Code:

With ActiveSheet.ListObjects("Tabelle_Woche_1")
    .ListRows(.ListRows.Count).Delete
End With

und mal ein Link dazu.
https://www.thespreadsheetguru.com/blog/...cel-tables

Gruß Elex

[DeLaGhetto]

Der Link hat mir super weitergeholfen.

Vielen Dank dir!