Office: letztes Tabellenblatt löschen

Hallo,
ich habe eine Arbeitsmappe mit vielen Tabellenblättern. Über ein Makro werden immermal wieder neue Datenblätter eingefügt.
Nun würd ich gern das letzte Datenblatt löschen.

Wie kann ich das letzte Datenblatt in einer Arbeitsmappe ansprechen?

:)

 

Was meinst du mit "das letzte Datenblatt"? Das zuletzt eingefügte? Das müsstest du über foglenden Code amchen können:

Code:

Solltest du die Sicherheitsabfrage drin haben wollen lasse das application.display weg.

Cheers,

sonba

 

Hallo zusammen,

gestattet mir eine kleine Anmerkung zu Sonbas Antwort. ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) bezieht sich nicht notwendigerweise auf das zuletzt eingefügte Blatt, sondern auf das in der momentanen Sortierung letzte Blatt. Wenn also das zuletzt eingefügte Blatt nachträglich weiter vorne einsortiert wird, stimmt der Bezug nicht mehr, falls tatsächlich das zuletzt eingefügte Blatt angesprochen werden soll.

Gruß Ingolf

 

Hmm, stimmt, wenn man zwischendurch das Blatt neu öffnet existiert das Problem wirklich. Hatte es in einem Blatt ausprobiert,w as ich zwischendurch nicht gespeichert hatte - dann funktioniert es natürlich.

 

Moin, pfjo,

den in der Mappe vorzuhaltenden Tabellen in der VBE andere Namen als die Standardnamen (im deutschen Tabelle) zuweisen und später in einer Schleife die Codenamen auswerten und alle nicht mit z.B. "pfjo" als linke 4 Zeichen übereinstimmenden Tabellen löschen. Position ist dann egal - solange mindestens eine Tabelle in der Mappe vorhanden ist...

Oder beim Einfügen ein Objekt auf die neue Tabelle setzen und zum Schluß löschen.