Wie lösche ich ein ganzes blatt mit vba?
Um ein ganzes Blatt mit VBA-Code auf einmal zu löschen, müssen Sie zwei Dinge verwenden: zuerst die CLEAR-Methode und dann CELLS, um auf alle Zellen in einem Arbeitsblatt zu verweisen .
Aktives Blatt löschen
Nehmen wir an, wenn Sie den gesamten Inhalt des Aktivierungsblatts löschen möchten, sieht der Code wie folgt aus.
Cells.Clear
Wenn Sie diesen Code ausführen, wird alles aus allen Zellen im aktiven Blatt gelöscht. Wie ich bereits erwähnt habe, haben wir „clear“ verwendet, um auf das gesamte Arbeitsblatt zu verweisen, und „clear“, um es zu löschen.
Löschen Sie ein bestimmtes Blatt
Es gibt eine Sache, die Sie beachten sollten: Um ein Blatt zu löschen, muss dieses Blatt aktiviert sein. Nehmen wir also an, Sie möchten „Sheet1“ löschen. Der Code würde wie folgt aussehen:
Sheets("Sheet1").Activate Cells.Clear
In diesem Code aktiviert die erste Zeile „Sheet1“ und die zweite Zeile löscht alles.
Andere Dinge müssen geklärt werden
Sie können auch die folgenden Methoden verwenden, um verschiedene Dinge zu löschen.
Cells.ClearContents 'to clear contents Cells.ClearComments 'to clear Comments Cells.ClearFormats 'to clears formatting Cells.ClearHyperlinks 'to clear hyperlinks Cells.ClearNotes 'to clear notes Cells.ClearOutline 'to clears outline
Löschen Sie ein Blatt aus einer bestimmten Arbeitsmappe
Der folgende Code kann auf die Arbeitsmappe „Book1“ verweisen und das Blatt „Sheet1“ löschen. Stellen Sie jedoch sicher, dass die Arbeitsmappe zum Zeitpunkt der Ausführung dieses Codes geöffnet ist.
Workbooks("Book1").Sheets("Sheet1").Activate Cells.Clear
Dieser Code aktiviert zunächst „Blatt1“ des Buches und löscht es.
Löschen Sie ein Blatt aus einer geschlossenen Arbeitsmappe
Und im folgenden Code haben wir auf „Blatt1“ der Arbeitsmappe „Beispieldatei“ verwiesen, die an einem bestimmten Ort gespeichert ist.
Sub vba_clear_sheet() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open("C:\Users\Dell\Desktop\sample-file.xlsx") wb.Sheets("Sheet1").Activate Cells.Clear wb.Close SaveChanges:=True Application.ScreenUpdating = False End Sub