Löschen von Inhalten

Bild

Betrifft: Löschen von Inhalten
von: Matthes
Geschrieben am: 01.03.2005 13:04:39
Ich möchte in einer riesigen Datei mit ca. 120 Excel-Sheets von FAST allen Sheets nur die Inhalte löschen.
Wie kann ich z.B. über Array
Sheets(Array("801207", "801167", "801165", "801168", "800617", "801206",")).Select
und anschließendem
Cells.Select
Selection.ClearContents
den Array aber so formulieren, dass ich nicht alle Tabellenblätter EINZELN aufführen muß?
Vielen Dank!
Matthes

Bild

Betrifft: AW: Löschen von Inhalten
von: ypsilon
Geschrieben am: 01.03.2005 13:12:34
hi,
eventuell so:

Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Cells.ClearContents
Next
End Sub

cu Micha
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Löschen von Inhalten"