Sie können ein Arbeitsblatt nicht allein mit VBA -Sequenzen direkt löschen. VBA verlangt, dass Sie mit der Excel -Anwendung mit ihren Objekten und Methoden interagieren. Ich kann Ihnen jedoch den VBA -Code zur Verfügung stellen, um ein Arbeitsblatt zu löschen:

`` `vba

Sub -DeleteWorksheet ()

'Ersetzen Sie "Blatt1" durch den Namen des Arbeitsblatts, das Sie löschen möchten

Dim WStodelete als Arbeitsblatt

Setzen Sie wStodelete =thisworkbook.worksheets ("Sheet1")

'Löschen Sie das Arbeitsblatt

wStodelete.delete

Ende sub

`` `

Erläuterung:

1. `sub deleteWorksheet ()`: Diese Zeile deklariert eine Unterroutine mit dem Namen "DeleteWorksheet", das den Code zum Löschen des Blattes enthält.

2. `dim WStodelete als Arbeitsblatt": Dies deklariert eine Variable mit dem Namen "WStodelete" vom Typ "Arbeitsblatt", um einen Verweis auf das Arbeitsblatt zu erhalten, das Sie löschen möchten.

3. `set WStodelete =thisworkbook.worksheets (" Sheet1 ")`: Diese Zeile legt die Variable "WStodelete" in ein bestimmtes Arbeitsblatt in der Arbeitsmappe fest. Ersetzen Sie `" Blatt1 "` durch den tatsächlichen Namen des Arbeitsblatts, das Sie löschen möchten.

4. `wStodelete.delete`: Diese Zeile löscht tatsächlich das Arbeitsblatt, auf das die Variable "WStodelete" verwiesen wird.

So verwenden Sie den Code:

1. Öffnen Sie Ihr Excel -Arbeitsbuch.

2. Drücken Sie Alt + F11 Um den Visual Basic Editor (VBE) zu öffnen.

3. Klicken Sie im VBE auf einfügen> Modul .

4. Fügen Sie den Code in das neu erstellte Modul ein.

5. Ändern Sie `" Blatt1 "in den tatsächlichen Namen des Arbeitsblatts, das Sie löschen möchten.

6. Drücken Sie f5 das Makro ausführen.

Wichtige Hinweise:

* Sicherung Ihres Arbeitsbuchs: Bevor Code ausgeführt wird, die Ihre Arbeitsmappe verändert, ist es immer eine gute Idee, ein Backup zu machen.

* Fehlerbehandlung: Der bereitgestellte Code geht davon aus, dass das Arbeitsblatt existiert. Sie können die Fehlerbehandlung hinzufügen, um zu verhindern, dass der Code stürzt, wenn das Arbeitsblatt nicht gefunden wird.

Lassen Sie mich wissen, wenn Sie andere Fragen haben!